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This  report  provides  useful  information  to  ammunition  managers  on  the  Multi- 
ple-Bid Evaluation  Model.  The  purpose  of  the  Multiple-Bid  Evaluation  Model  is 
to  enable  management  to  evaluate  the  economic  and  base  protection  impacts  of 
available  alternative  solutions  for  complex  procurement  actions  involving  large 
numbers  of  multiple  bidders,  multiple  bid  levels,  and  multiple  buy  periods.  The 
model  can  be  used  for  single  or  multiple  item  buys.  The  sequence  of  steps  by 
which  the  model  achieves  this  objective  ^s  as  follows: 
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PROCUREMENT  PLANNING  AND  PLACEMENT 
FOREWORD 

In  the  Department  of  Defense  environment,  there  is  a need  for  the  capability 
of  evaluating  the  cost  of  making  one  or  more  procurement  awards  for  an  item 
or  component.  The  reasons  range  from  distributing  awards  to  maintain  planned- 
producer  capabilities  as  a part  of  assuring  industrial  preparedness  to  meet 
mobilization  requirements  to  distributing  procurement  awards  consistent  with 
the  capability  limitations  of  competing  planned-producer 

To  meet  these  requirements  specifications  of  the  Military  Services,  a 
Multiple-Bid  Evaluation  Model  was  designed  under  the  auspices  of  the  Joint 
Conventional  Armiunition  Program  Coordinating  Group.  The  model  has  been 
successfully  demonstrated  and  has  been  accepted  by  the  Military  Services. 

This  Analysts'  Manual  and  a companion  document,  "The  Users'  Manual,"  comprise 
an  export  package  which  will  permit  the  Military  Services  to  install  and  use 
this  Multiple-Bid  Evaluation  Model. 

The  Analysts*  Manual  consists  of  information  about  a given  model  and  outlines 
the  concept,  purpose,  and  appropriate  uses  of  the  model  along  with  (a) 
mathematical  formulation  of  the  problem,  (b)  conceptual  flowcharts  of  the 
programs  and  subroutines  used  in  the  model,  and  (c)  source  listings  of  the 
actual  program(s)  including  comments  to  assist  in  explanation  of  the  logic 
used  in  the  programs. 

Configuration  management  of  the  model  is  retained  by  the  Joint  Conventional 
Ammunition  Program  Decision  Models  Directorate,  Proposals  for  modification 
of  the  model  and  inquiries  with  respect  to  the  model  application  and  operation 
should  be  addressed  to  the  Director,  Joint  Conventional  Anmunition  Program 
Decision  Models  Directorate,  Rock  Island  Arsenal,  IL  61201.  Telephone 
inquiries  should  be  addressed  to  the  Chief,  Production  and  Mobilization 
Planning  Division  of  that  Directorate,  AUTOVON  793-5666. 
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This  Analysis-'-- Manual  for  the  Multiple-Bid  Evaluation  Model,  designed, 
developed,  and  demonstrated  by  the  Joint  Conventional  Ammunition  Program 
Decision  Models  Directorate,  is  in  response  to  requirements  established  by 
the  Military  Services,  which  have  accepted  the  model  for  their  uses  as 
described  herein. 


Although  the  Multiple-Bid  Evaluation  Model  was  designed  for  procurement  planning 
and  placement  of  ammunition,  it  is  capable  of  handling  any  commodity  when  the 
effects  of  multiple-buys  and  multiple-awards  are  evaluated  by  procurement 
directors. 
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ABSTRACT 


This  report  documents  the  JCAP  Multiple-Bid  Evaluation  Model  (MBEM)  as 
adapted  and  util ized^by  the  JCAP  Production  and  Mobilization  Planning  Division. 

iV  s,  ^ 

/•  ^ ' 

The  model  uses  the- principles -of  Dynamic  Programming  to  conduct  bid 
analyses  for  selection  of  a combination  of  suppliers  to  be  awarded  portions 
of  a total  contract.  These  analyses  include  the  finding  of  least  cost  and 
next  least  cost  solutions  for  the  total  requirement  and  for  fractions  of 
the  total  requirement.  In  the  case  of  procuring  a single  item  for  a single 
buy  period,  the  model  can  also  find  least  and  next  least  costs  for  each 
possible  number  of  suppliers.  This  additional  analysis  enables^anagement 
to  evaluate  the  costs  of  using  additional  suppliers  in  order  to  have  a broader 
production  base. 

The  mpdel  consists  of  four  independent  computer  programs  for  s«veralM^^  - 
different'situationst  Program'(l)fs  desygnecf’for'^a  single  buy  period  and  a 
single  type  item,’  'Program^2)€atft-hdn<fle'two  buy  periods,  or  two  items  for 
one  buy  period.  Program  3j  is  desj^gned  fo?  three  buy  periods,  or  three  items 
for  one  buy  period,  Program  4/4^  a version  of  Program  1 which  finds  least 
cost  and  next  least/cost  solutions  for  each  possible  number  of  bidders  to 
be  selected.  ^ ^ 

This  volume  contains: 

(1)  MBEM  mathematical  formulations  and  the  computational  methods  used; 

(2)  Flowcharts  for  each  program, 

(3)  Computer  listings  complete  with  comments  and  identification  of 
variables. 
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SECTION  I 


INTRODUCTION 


1.  BACKGROUND. 

The  JCAP  Multiple-Bid  Evaluation  Model  (MBEM)  is  a computer  program  which 
analyzes  bids  submitted  by  potential  suppliers  for  portions  of  a total  con- 
tract requirement.  The  model  identifies  least  cost  solutions  for  selection  of 
a combination  of  suppliers  to  provide  the  total  production  requirement  over 
single  or  multiple  buy  periods. 

The  model  can  be  used  to  analyze  procurement  of  items  when  there  is  a 
mix  of  competition  from  privately-owned  and  Government-owned  facilities. 

The  techniques  and  computer  programs  used  in  this  application  were 
developed  initially  in  support  of  ORG  Report  47  (reference  1).  The  model  has 
since  been  modified  and  adopted  as  an  integral  member  of  the  JCAP  system  of 
decision  models. 

2.  APPROACH. 

The  principles  of  dynamic  programming  are  utilized  to  provide  the  least 
cost  solutions  for  each  possible  combination  of  production  requirements  and 
number  of  bidders,  as  well  as  "second  best"  solutions.  Secondary  solutions 
are  provided  as  additional  information  to  assist  management  in  the  decision 
process  in  the  event  that  a decision  cannot  be  made  based  on  least  cost  solu- 
tions. The  dynamic  programming  method  employs  an  approach  in  which  any  two 
bidders  are  considered  and  only  those  bids  which  can  be  entered  into  the 
final  solution  are  carried  forward  as  a combination  to  compete  against  the 
next  bidder.  The  final  combination  contains  the  least  cost  solution. 

3.  MODEL  OPTIONS. 

There  are  four  different  program  versions  of  the  model.  Each  program 
has  unique  capabilities  and  options  available  for  the  user. 

Program  one  is  designed  for  analyzing  a contract  procurement  for  one  buy 
period  and  one  type  item.  Production  base  protection,  the  cost  of  not 
selecting  a particular  bidder,  can  be  assigned  to  any  or  all  of  the  bidders 
prior  to  the  analysis.  The  number  of  suppliers  allowed  in  the  solution  is  not 
included  in  the  analysis.  If  an  analysis  for  a specified  number  of  suppliers 
to  be  selected  is  desired,  then  program  four  should  be  used.  Program  one 
has  an  option  to  determine  least  cost  solutions  for  fractions  of  the  total 
procurement  contract.  It  is  also  capable  of  determining  "second  best"  and 
other  alternative  solutions. 


1.  DeArmon,  Ira  A.,  Jr.,  and  Fermaglich,  David  M. , The  Cost  of  Procuring 
Awnunltion  from  Industry  or  from  Government-Owned  Plants,  USAMUCOM  ORG 
Report  47,  USAMUCOM  Operations  Research  Group,  July  1972,  UNCL. 
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Program  two  is  designed  for  analyzing  a contract  procurement  for  two  buy 
periods  for  one  item  or  two  items  for  one  buy  period.  The  other  major  dif- 
ference between  program  two  and  program  one  is  that  program  two  can  be  used 
to  analyze  the  problem  in  which  there  is  competition  among  the  bidders  for 
assignment  of  production  base  protection  responsibility. 

Program  three  has  all  of  the  capabilities  of  the  previously-described 
programs  with  the  additional  capability  of  analyzing  a problem  with  up  to 
three  buy  periods  or  up  to  three  items  for  a single  buy  period. 

Program  four  is  similar  to  program  one  in  that  it  is  designed  for  one 
buy  period  and  one  type  item.  It  has  the  additional  capability,  however,  to 
identify  the  least  cost  solution  for  each  possible  number  of  suppliers  which 
can  be  selected. 

4.  MODEL  APPLICATION. 

The  Government  issues  Invitations  for  Bid  (IFB's)  to  private  industry 
as  well  as  to  its  own  plants.  Each  potential  supplier  submits  several  bids, 
each  for  a specified  fraction  of  the  procurement  contract.  These  bids, 
along  with  other  relevant  cost  factors,  i.e..  Government  standby  costs, 
transportation  costs,  equipment  rental  factors,  and  production-related  costs 
are  analyzed  to  determine  the  least  cost  and  several  near  least  cost  solutions. 

When  developing  the  model  for  munitions  procurement,  each  Government-owned 
contractor-operated  (GOCO)  source  is  considered  as  a separate  supplier  to 
allow  for  competition  between  GOCO  facilities.  In  addition,  the  contract 
requirement  for  the  period  (or  periods)  in  question  must  be  known.  Recognizing 
that  the  model  derives  the  solutions  for  fractions  of  the  total  requirement, 
the  decision  maker  can  designate  the  maximum  potential  demand  as  his  item 
requirement  in  his  bid  solicitations.  Following  this  procedure,  the  analyst 
then  defines  the  discrete  bid  levels  that  would  be  acceptable. 

The  bid  levels  selected  do  not  have  to  be  in  percentage  form,  e.g., 

0%,  25%,  50%,  75%,  100%.  They  can  also  be  in  actual  production  units  form. 

For  example,  if  the  total  requirement  for  the  item  to  be  procured  were 

100.000  items  and  the  total  number  of  bid  levels  were  five,  the  bid  levels 
could  be  entered  as  0%,  25%,  50%,  75%,  and  100%  or  as  0 units,  25,000  units, 

50.000  units,  75,000  units,  and  100,000  units. 

In  theory,  the  model  can  accommodate  a large  number  of  discrete  bidding 
levels.  In  practice,  the  problem  of  expected  item  demand  levels  and  the 
practicality  of  developing  suitable  cost  data  will  be  the  limiting  factors 
for  choosing  the  number  of  bid  levels  for  the  analysis.  Once  the  procurement 
requirement,  the  suppliers,  and  the  feasible  bid  levels  have  been  defined, 
the  last  ingredient  to  the  analysis,  i.e.,  the  input  cost  data,  must  be 
developed  for  each  bid  level.  This  data  set  should  include  all  relevant 
cost  information  for  the  procurement  decision. 
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It  is  not  necessary  for  model  operation  that  each  bidder  submit  a bid 
for  each  level.  This  facet  of  the  model  allows  a smaller  company,  with  an 
insufficient  capacity  for  meeting  the  entire  requirement,  to  compete  for 
part  of  the  contract.  It  also  gives  a supplier  the  option  of  not  bidding 
for  a lower  bid  level  when  he  feels  it  is  not  in  his  self-interest. 


r SECTION  II 

MULTIPLE-BID  EVALUATION  MODEL  MATHEMATICAL  FORMULATIONS 

1.  GENERAL. 

The  objective  of  the  model  is  to  find  the  solution  which  meets  the  bid 
requirements  at  the  least  cost.  The  following  paragraphs  describe  each 
individual  program  in  English  an'^  in  mathematical  language. 

2.  PROGRAM  1. 

Program  1 finds  least  cost  and  next  least  cost  solutions  at  all  bid  levels 
for  one  time  period  and  one  item.  The  mathematical  statement  follows: 


B L 


Minimize: 

i = l 

Z 

j=l 

O 

X 

Subject  to: 

^ij  " 

0 or  1 

L 

^ 1 

S 

j=l 

= 1 

B 

L 

S 

i = l 

I 

j = l 

q.  X.  . > R 

1.1  - 

Where 

i is 

the 

bidder  subscript. 

j is  the  bid  level  subscript, 

B is  the  number  of  bidders, 

L is  the  number  of  bid  levels, 

X..  = 1 if  bidder  i is  selected  at  bid  level  j, 

* J 

= 0 otherwise, 

C^j  is  the  cost  of  bidder  i's  bid  at  level  j, 

q.  is  the  quantity  of  bid  level  j,  and 

R is  the  total  requirement  or  any  of  the  lower 
requirements  desired. 


4 


3.  PROGRAM  2. 

Program  2 finds  least  cost  solutions  at  each  possible  set  of  bid  levels 
for  two  periods  or  two  items.  The  mathematical  statement  follows: 


B LI  L2 

MfnfmUe:  2 2 2 '^1Jk  *Uk 

i=l  j=l  k=l 

Subject  to:  = 0 or  1 


LI 

2 

L2 

2 

^jk 

= 1 

j=i 

k=l 

B 

2 

LI 

2 

L2 

2 

^ijk 

i=l 

j=i 

k=l 

B 

2 

Ll 

2 

L2 

2 

'’2k  ^ijk 

i=l 

j=i 

k=l 

^ R1 

^ R2 


Where  i is  the  bidder  subscript, 

j is  the  subscript  for  the  first  period/item  bid  level, 
k is  the  subscript  of  the  second  period/item  bid  level, 
B is  the  number  of  bidders, 

LI  is  the  number  of  first  period/item  bid  levels, 

L2  is  the  number  of  second  period/ item  bid  levels, 

Xii-  = 1 if  bidder  i is  selected  at  first  period/item 
bid  level  j and  second  period/item  bid  level  k 

= 0 otherwise, 

C^ik  is  the  cost  of  bidder  i's  bid  at  first  period/item 
bid  level  j and  second  period/item  bid  level  k, 

qjj  is  the  quantity  of  first  period/item  bid  level  j. 
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is  the  quantity  of  second  period/item  bid  level  k, 

R1  is  the  first  period/item  requirement  to  be  met,  and 
R2  is  the  second  period/item  requirement. 


4.  PROGRAM  3. 

Program  3 finds  least  cost  solutions  at  each  possible  set  of  bid  levels 
for  two  periods  or  lwo  items.  It  also  finds  next  least  cost  solutions  at  the 
total  requirement  bid  levels.  The  mathematical  statement  of  this  problem 
follows: 


Minimize: 


Where 


B 

LI 

L2 

L3 

I 

z 

z 

^i  jkl 

i = l 

j = l 

k=l 

1=1 

X.  , 

= 0 

or  1 

ijkl 

LI 
■ " 1 > 

L2 

L3 

Z 

z 

z 

^ijkl 

= 1 

j = l 

k=l 

1=1 

B 

'C — > 

LI 

L2 

L3 

z 

z 

^Ij  ^ 

i = l 

j=i 

k=l 

1=1 

B 

Ll 

L2 

L3 

2 

z 

z 

I 

ro 

X 

i=l 

j=l 

k=l 

1=1 

B 

Ll 

L2 

L3 

I 

z 

z 

z 

q31  X 

i=l 

j=l 

k=l 

1=1 

i is 

the  1 

bidder 

subscript. 

X...., 


^ R1 


> R2 


~ R3 


j is  the  subscript  of  the  first  period/item  bid  level, 
k is  the  subscript  of  the  second  period/item  bid  level, 
1 is  the  subscript  of  the  third  period/item  bid  level, 

B is  the  number  of  bidders. 
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LI  is  the  number  of  first  period/item  bid  levels, 

L2  is  the  number  of  second  period/item  bid  levels, 

L3  is  the  number  of  third  period/ item  bid  levels, 

^iikl  " ^ bidder  is  selected  at  first  period/item 
^ bid  level  j,  second  period/item  bid  level  k, 
and  third  period/item  bid  level  1, 

= 0 otherwise, 

Ciiki  is  the  cost  of  bidder  i's  bid  at  first  period/item 
'’  bid  level  j,  second  period/ item  bid  level  k,  and 
third  period/item  bid  level  1, 

q^j  is  the  quantity  of  first  period/ item  bid  level  j, 

q^j^  is  the  quantity  of  second  period/item  bid  level  k, 

q^^  is  the  quantity  of  third  period/item  bid  level  1, 

R1  is  the  first  period/item  requirement  to  be  met, 

R2  is  the  second  period/item  requirement,  and 
R3  is  the  third  period/item  requirement. 


5.  PROGRAM  4. 

Program  4 finds  least  cost  and  next  least  cost  solutions  at  each  bid  level 
for  each  possible  number  of  suppliers.  It  considers  one  time  period  and  one 
item.  The  mathematical  statement  follows: 


B 

L 

Minimize: 

s 

I 

Sj  ^j 

i = l 

j = l 

Subject  to: 

= 0 or 

1 

L 

z 

j=l 

*ii  = 

1 

B 

L 

z 

1-1 

z 

j-1 

^j'ij  = 

7 


Where 


B 


X .Z 


i=l 


{j:qj>0} 


i is  the  bidder  subscript, 
j is  the  bid  level  subscript, 

N is  the  number  of  bidders  in  the  solution, 

B is  the  total  number  of  bidders, 

L is  the  number  of  bid  levels, 

X..  = 1 if  bidder  i is  selected  at  bid  level  j, 

• V 

= 0 otherwise, 

C .j  is  the  cost  of  bidder  i's  bid  at  level  j, 
q.  is  the  quantity  of  bid  level  j,  and 

J 


R is  the  total  requirement  or  any  of  the  lower  require- 
ments desired. 
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SECTION  III 


COMPUTATIONAL  METHODS 


1.  GENERAL  METHOD. 

The  model  consists  of  several  computer  programs.  Each  program  considers 
bidders  sequentially,  finding  all  least  cost  combinations  of  the  first  two 
bidders,  of  the  first  three  bidders,  and  so  on  until  it  has  found  the  least 
cost  combinations  of  all  bidders.  Then  each  program  works  backwards  to 
assemble  each  bidder's  share  of  the  least  cost  solution. 

2.  EXAMPLE. 

Consider  the  following  problem:  Three  bidders  are  bidding  at  three  bid 
levels:  0%,  50%,  and  100%.  Their  bids  at  each  level  are: 


LEVEL 

BIDDER  I's 
BIDS 

BIDDER  2's 
BIDS 

BIDDER  3's 
BIDS 

0% 

100 

0 

0 

50% 

600 

350 

400 

100% 

900 

900 

850 

Find  the  combinations  of  bids  which  meet  the  0%,  50%,  and  100%  require- 
ments at  least  cost. 

The  first  step  is  to  combine  bids  for  Bidders  1 and  2 to  find  least  costs 
at  each  bid  level  using  these  two  bidders.  This  is  depicted  in  Table  1. 

The  second  step  is  to  treat  the  combined  bids  for  Bidders  1 and  2 as 
bids  by  a single  bidder  and  combine  them  with  Bidder  3's  bids  in  the  same 
way  as  before.  This  is  depicted  in  Table  2. 

If  there  were  more  bidders,  their  bids  would  be  combined  with  the  above 
bids  one  at  a time  until  all  had  been  considered. 

At  this  stage,  the  least  costs  are  known  but  not  each  individual  bidder's 
bids.  To  find  these  bids,  the  programs  work  backwards  through  the  bid  levels 
noted  for  each  bidder  during  the  ea.lier  steps.  At  each  step,  the  programs 
find  a bidder's  bid  level  and  subtract  that  level  from  the  old  balance  to  get 
the  new  balance.  Repeating  this  step,  the  programs  find  the  bid  levels  for 
all  bidders,  as  shown  below. 
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TABLE  1 - COMBINATION  OF  BIDDERS  1 AND  2 


First,  recall  the  bid  levels  of  Bidders  3 and  2 in  the  solutions  for 


Bidders  1-3 

and  1 - 2, respectively. 

BID 

LEVELS  OF  BIDDER  3 

LEVELS  OF  BIDDER  2 

LEVEL 

IN  SOLUTIONS  FOR 

1 - 3 

IN  SOLUTIONS  FOR  1 - 2 

0% 

0% 

0% 

50% 

0% 

50% 

100% 

50% 

0% 

The  computations  follow: 

Bid  Level 

0% 

50% 

100% 

3rd  Bidder 

0% 

0% 

50% 

Balance 

0% 

50% 

50% 

2nd  Bidder 

0% 

50% 

50% 

Balance 

0% 

0% 

0% 

1st  Bidder 

0% 

0% 

0% 

The  solutions,  then,  are  these: 


Bid  Level 

0% 

50% 

100% 

1st  Bidder 

0% 

0% 

0% 

2nd  Bidder 

0% 

50% 

50% 

3rd  Bidder 

0% 

0% 

50% 

Cost 

ioD 

450 

550" 

SECTION  IV 


# 

MULTIPLE-BID  EVALUATION  MODEL  FLOWCHARTS 

This  section  contains  Multiple-Bid  Evaluation  Model  flowcharts  which  show 
Pkjjor  logical  steps  in  the  programs.  There  are  flowcharts  for  each  program. 
Programs  with  a main  routine  and  subroutine  have  individual  flowcharts. 

Throughout  the  flowcharts,  the  four  major  steps  which  the  program  performs 
are  shown  by  the  symbols  , (^ , (^ , and  These  steps  are: 

Step  Input. 

Initialize  the  arrays  and  read  the  data. 

Step  ^ : Combining. 

For  each  I'th  bidder,  find  his  share  of  the  solutions  for  bidders 
1 through  I. 

Step  : Assembly  and  Printing. 

Assemble  and  print  least  cost  solutions  by  working  backwards  bidder 
by  bidder. 

Step  Suboptimization. 

Compute,  assemble  and  print  next  least  cost  solutions. 

The  programs  differ  somewhat  in  structure.  Programs  1 and  3 have  a sub- 
routine for  finding  least  costs,  while  the  other  programs  find  least  costs 
in  the  main  routine. 
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FLOWCHART  - DYNPRO  SUBROUTINE 


YES 


FLOWCHART  - MAIN  PROGRAM 


DESIRED  BID 
LEVEL  LOOPS 


FLOWCHART  - MAIN  PROGRAM  (Cont) 


'COMPUTE  BALANCES 
REMAINING  TO  BE 
MET 


MBE3  - FLOW  CHART  - MAIN  PROGRAM 


I 


00  © 


1 

/ 

\ 

CO 

z 

o 

H-  »— 

1— 

ID  CO 

CO 

UJ 

< 

O CO 

o 

UJ 

CO 

LkJ 

_J 

h“ 

q: 

h-  X 

h-  <✓) 

CO  LU 

Q CO 

o 

z z 

% 

o z 

UJ 

o: 

o 

CO  o 

o. 

o 

z 

a.  h- 

1—  z 

^ Lu 

>- 

CO 

o 

o ^ 

c o 

< 

z o 

LU  Z 

CO 

Ct  to 

_J  »— • 

h-  -J 

U. 

Z UJ 

Q H- 

LU  CO 

> 

Z CO 

o:  LU 

QC  LU 

i-i  o 

C O Z 

O.  -J 

\ 

Li.  Cy' 

CO  u.  O 

0 
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SET  UP  TO  PROCESS 
ALL  BID  LEVELS 


MBE3  - FLOWCHART  - MAIN  PROGRAM  (Cont 


FLOWCHART  - DYNPRO  SUBROUTINE  (Cont) 


ASSEMBLY 

LOOP 

COMPLETE 


MBE4  - FLOWCHART  - MAIN  PROGRAM 


o 


PUT  BIDS  AND  BID  COSTS  AND  POTENTIALLY  SECOND-BEST 

DIRECTLY  INTO  BID  ARRAYS!  SOLUTIONS  INTO  INTERMEDIATE 

I ARRAY 


MBE4  - FLOWCHART  - MAIN  PROGRAM  (Cont) 


Beyond  a certain  point  the  second-best  solution  for  all  bidders 
may  be  the  same  as  the  least-cost  solution  for  the  first  several 
bidders. 


SECTION  V 

MULTIPLE-BID  EVALUATION  MODEL  COMPUTER  LISTINGS 

Figures  5-1  through  5-6  present  the  FORTRAN  source  listings  of  the  four 
liul tiple-Bid  Evaluation  Model  programs.  Comment  cards  help  the  reader 
identify  steps  in  the  programs  and  identify  the  variables  used.  Comments 
are  numbered  hierarchically.  For  example,  Coiment  11  includes  Comments  11.1 
and  11.2. 
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c 

c 


PROGRAM  1 

BASIC  MULTIPLE  B12  EVALUATION  - PROVIDES  LEAST-COST  SOLUTIONS  AT 

EACH  possible  PK  LEVEL.  PROVIDES  NEXT-BEST  SOLUTIONS  AT  THE 

total  kecuirehent  bid  level. 

1 IDENTIFICATION  OF  VARIABLES. 

BID  - 810  COST. 

9LEVEL  - BID  LEVEL. 

CUSTII.LI  - THE  ARRAY  OF  BID  COSTS  FOR  EACH  BIDDER  I AND  BID 
LEVEL  L. 

DELT(I)  - AMOUNT  OF  REOUIREMENT  MET  BY  BIDDERS  1 THRU  I. 

OIFF  - BID  level  DESIRED  FOR  PRECEDING  BIDDERS.  WHEN  ADDED  TO 
CURRENT  BIDDER'S  LEVEL  K GIVES  TOTAL  BIO  LEVEL  L. 

DUMMY  - 4 high  value  USED  TO  INITIALIZE  THE  COST  ARRAY  FOR  EASE 
UF  HANDLING  BIOS  NUT  MADE. 

DYNPRO  - the  SUBROUTINE  RHICH  FINDS  THE  LEAST-COST  SOLUTIONS. 

F(I,L)  - MINIMUM  COST  FOR  BIDDERS  I THRU  I AT  LEVEL  L. 

FfiKi  - the  possible  intermediate  solutions  from  WHICH  THE  least- 
cost  INTERMEDIATE  SOLUTION  IS  FOUND. 

FINXIII  - ARkAY  in  WHICH  IPTIMAL  SOLUTION  BIO  LEVELS  ARE  SAVED  IN 
ORDER  TO  HcLP  DETERMINE  SU60PTIMAL  SOLUTIONS. 

I - BIDDER. 

IT  - TITLE  ELEMENT  INDEX, 

ITESr  - •!  MEANS  that  OPTIMIZATION  IS  DESIRED  FOR  AMOUNTS  LESS 

THAN  THE  TLTAL  REQUIREMENT  LEVEL. 

.0  MEANS  optimization  IS  NOT  DESIRED  FOR  SUBMAXIMAL 
requirement  LEVELS. 

J - 310  LEVEL  INDEX. 

K - BIO  LEVEL  INDEX. 

KA  - BID  LEVEL  Index. 

KK  - THE  NUMBER  OF  BIOS  MADE  BY  A BIDDER. 

L - IN  OPTIMIZAIIUN  SECTION,  BIO  LEVEL  INDEX.  IN  SUBOPTIMIZATION 
SECTION.  BIDDER  INDEX. 

LC  - initial  bid  LEVEL  INDEX,  I TO  SOLVE  FOR  ALL  SID  LEVELS  AND 
NLEV  OTHFRwI S£  . 

LEVdl  - IN  INPUT  SECTION,  NUMBER  OF  BIDS  MADE  BY  EACH  BIDDER,  I. 
IN  CDMPUTATIUN  SECTION,  INCLUDES  BIOS  NOT  MADE  BUT  DUMMIED 
IN,  I.E.  EQUALS  NUMBER  (JF  SID  LEVELS. 

LEVL  - NUMBER  OF  BIDS  FOR  EACH  BIDDER. 

LL  - SID  level  index. 

N - INITIAL  BIO  LEVEL  INDEX,  1 TO  SOLVE  FOR  ALL  BIO  LEVELS  AND 
NLt^V  OTHERWI  SE. 

NLEV  - NUMBER  OF  BIO  LEVELS. 

NSUP  - NUMBcK  OF  BIDDERS. 

PLEVII.LI  - the  array  OF  BIO  QUANTITIES  FOR  EACH  BIDDER  I AND 
BID  LEVEL  INDEX  L. 

R - MINIMUM  COST  YET  FOUND  FOR  THE  INTERMEDIATE  SOLUTION 
CURRtNTlY  being  SOUGHT. 

SAVE  - VARIABLE  USED  TO  SAVE  LEAST  COST  FOR  RESTORING  COST  ARRAY 
AFTER  EACH  SUBDPTIMIZATI.VN. 

SURP  - THE  BID  LEVELS. 

TITLE  - TITLE  CF  STUDY. 


00- jOOlO 
COODDOZO 
00000030 
OOOOOOGO 
00000050 
00000060 
00000070 
00000030 
OOOOOODO 
00000100 
00000110 
OOOOOIZO 
OOGOOl 30 
00000140 
00000150 
00000160 
00000  1>0 
00000130 
00000190 
00000200 
00000210 
00000220 
00000230 
OOOOOZGO 
00000250 
00000260 
OOOC027O 
00000280 
00000290 
00000300 
00000310 
00000320 
00000330 
00000340 
00000350 
00000360 
00000370 
00000330 
00000390 
00000400 
00000410 
00000420 
00000*.30 
00000440 
00000450 
00000460 
00000470 
00000480 
00000490 
00000500 
00000510 
00000520 
00000530 


Figure  5-1.  Program  1 Listing,  MAIN  Routine  (1  of  4) 


A 


c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


10 

c 

c 

c 


20 

30 

C 

C 

c 


<.0 


50 

60 


X(1,L).-  BIO  LtVU  OF  BIODfR  I'S  CONTRIBUTION  TO  THE  LEAST-COST  000005AO 
solution  at  level  L using  only  BILOERS  1 THRU  I.  OOOOOSSO 

xFINMI  - SIO  LEVEL  CF  BIDDER  I'S  CONTRIBUTION  TO  THE  LEAST-COST  00000560 
SOLUTION.  00000570 

00000580 

2 common  and  dimension  STATEMENTS.  0000059‘0 

00000600 

COMMON  XF|N(2n,SURP(2n,PLEVI21,21),COST(21,211,LEV(2n,NSUP,NLEV00000610 


COMMON  KEST 

DIMENSION  FINX(21),  TITLEIS) 

3 READ  TITLE.  BASIC  PARAMETERS,  AND  BID  LEVELS. 

READ  (5,130)  ( T 1 TLE  ( I ) , I»1  ,5  ) 

RR  1 T (6. 1 AO  ) (T  1 TLE ( 1 ) , I *1 ,51 
read  (5,150)  NSUP.NLEV, ITEST 
«R1IE  (6,lt.C)  SSUP,NLEV 
IF  (NSUP.GT.E1)  hRITE  (6,170)  NSUP 
IF  (NLf V.GT .21  ) -RITE  (6,180)  NLEV 
IF  (NSUP .GT .El  .DR .NLEV .GT .21 ) STOP 
WRIT-  (6,190) 

DU  10  L»1 ,NL£V 
READ  200,  SUSP(L) 

PRINT  200,  SURPILI 

A INITIALIZE  BIO  LEVELS  AND  BIOS. 

DUMMY.l .c+1  5 
OU  30  1.1  ,,NSUP 
CO  20  L.l ,NLEV 
PLF V ( I ,L ) » SURP (L  I 
COST ( 1 ,L ) ‘DUMMY 
CONTI NUt 
CONTINUE 

5 READ  BIDS  FLR  EACH  BIDDER. 

WRITE  (6,210) 

DO  70  1.1, NSUP 
WRIT  (6,220)  1 

wRlT-  (6,230) 

READ  2A0,  LEVI  I ) 

RK»LEV{I  ) 

DU  60  K.l ,KK 
READ  (5,250.)  BLEVEL,B10 
WRITE  (6,250)  PL£VEL,BIO 
DU  AO  L.l  ,NLEV 

IF  ( BLE V?L .£ t.SURPIL ) ) CO  TO  50 
CONTINUE 

writ:  (6,260)  I,6LEVEL 
STOP 

COSTI 1 ,L  J.BID 
CONTINUE 


00000620 

00000630 

000006A0 

00000650 

00000660 

C0000670 

00000680 

00000690 

00000700 

00000710 

00000720 

00000730 

000007AO 

00000750 

00000760 

00000770 

00000780 

00000790 

00000800 

00000810 

00000820 

00000830 

000008AO 

00000850 

00000860 

00000870 

00000880 

00000890 

00000900 

00000910 

00000920 

00000930 

000009A0 

00000950 

00000960 

00000970 

00000980 

00000990 

00001000 

00001010 

00001020 

00001030 

OOOOIOAO 

00001050 

00001060 


Figure  5-1.  Program  1 Listing,  MAIN  Routine  (2  of  4) 
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70 

C 

C 

c 


80 

c 

c 

c 


c 

c 

c 


90 

c 

c 

c 

c 

c 


I 

I 

100 


no 


wc 

c 

130 

190 

150 

160 

170 

180 

190 

200 

210 

220 

230 

290 

250 

260 

270 


CONTINUE 

6 SETUP  TL  PKCCESS  ALL  BID  LEVELS. 

DO  80  I >1 ,NSUP 
L EV ( 1 I •NlEV 
CONTI NUE 

7 FIND  LEAST-COST  SOLUTIONS. 


1*1 

CALL  OYNPRO 
ITEST.O 

8 SAVE  LEAST-COST  SOLUTIONS  FOR  DETERMINING  NEXT-BEST  ONES. 

no  90  L»1 ,NSUP 
F INX (L  I'XF IN(L  I 

9 FIND  NEXT-BEST  SOLUTIONS.  FDR  EACH  SUPPLIER,  ONE  AT  A TIME, 
rule  OUT  THE  LEAST-COST  PRODUCTION  LEVEL  AND  FIND  THE  LEAST-COST 
OF  THE  REMAINING  PC S S 1 8 I L I T I E S . 

DO  120  L*1  ,NSUP 
PRINT  270,  L 
LEVL*LEV(L 1 
CO  100  LL*1,LEVL 

IF  ( PlEV (L ,L L l-F INXIL  I I 100,110,100 
CONTINUE 

PRINT  260,  F1NX(LI,L 
STOP 

SAVc«COST(L,LLI 
CUSTIL ,LLl*DUMMr 
CALL  CYNPRO 
ITEST.O 

CUSTIL, LLI.SAVE 
STOP 

FURMAT  I5A9I 
FORMAT  (1H1,5A9| 

FORMAT  (913) 

FORMAT  (1H0,I2,9H  B I DOE R S , , I 3 , 1 1H  BIO  LEVELS) 

FORMAT  (1M0,13,31I-  SUPPLIERS  IS  TOO  MANY  (21  MAXI) 
format  (1HC,13,32H  bid  LEVELS  IS  TOO  MANY  (21  MAX  I I 
format  (IHO.lOHblO  LEVELS) 

FORMAT  (FIO.OI 

format  (lH0,9HeiCSI 

format  I 1H0,6HEI CDER  ,I 3 ) 

format  (1H0,2CHB1D  level  total  COST) 

FORMAT  (13) 
format  I2F10.0I 

FORMAT  (lH0,6He(L0ER,I3,25H  BIO  AT  ILLEGAL  BIO  LEVEL, F9.0I 
FORMAT  I1HI,20X,11HSUB0PT  SCLN,IS//) 


00'^  P1070 
00001080 
00001090 
00001100 
00001110 
00001120 
00001130 
00001190 
00001150 
00001160 
00001170 
00001180 
00001190 
C0001200 
00001210 
00001220 
00001230 
00001290 
00001250 
00001260 
00001270 
00001280 
00001290 
COOOl 300 
00001 310 
00001320 
00001330 
00001 390 
00001350 
00001360 
00001 370 
00001380 
00001390 
00001900 
00001 910 
00001920 
00001930 
00001990 
00001950 
00001960 
00001970 
00001980 
00001990 
00001500 
00001 510 
00001520 
00001530 
00001590 
00001550 
00001560 
00001570 

00001 sao 

00001590 


Figure  5-1.  Program  1 Listing,  MAIN  Routine  (3  of  4) 
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2dO 


FORMAT  (IX.bHBIO  OF  , E 1 0 . 3 .2<>H  wA  S NOT  FOONO  FOR  BIDDER, IS) 
END 


Figure  5-1.  Program  1 Listing,  MAIN  Routine  (4  of  4) 


f- 


00001600 

OOOOlblO 
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SUBROUTINE  OYNPRC 

C OCl/ i 62 0 

common  XF  IN( 21  1 ,SURP(2n ,PLE V121 ,21) ,C0ST(21 ,21  ) ,LEV (21  ) ,NSUP  ,NLEV0Onoi63O 

COMMON  ITEST 

00001 6A0 

DIMENSION  CELT(21),  FF(21),  F(21,21),  X(21,2l) 

00001 650 

MRITE  (6,260) 

00001660 

c 

00001 670 

c 

10  SETUP  INITIAL  BIDDER'S  COSTS  AND  BIO  LEVELS. 

00001680 

c 

00001690 

1>1 

00001 700 

KK.LE V( I ) 

00001 710 

00  30  L*1,NLEV 

00001720 

DU  10  R«1 ,KK 

0000’ 730 

IF  ( SURP (L  )-PLEV ( I ,R I ) 30,20,10 

OOOul 7A0 

10 

CONT INUE 

00001 750 

2U 

F ( I ,L  ) 'COST ( I ,K) 

00001 760 

X(I,L)*PLEV(I,K) 

00001 770 

30 

CONTINUE 

00001780 

C 

00001 790 

c 

11  COMBINE  LEAST-COSTS  FUR  PREVIOUS  BIDDERS  WITH  COSTS  FDR  N,2XT 

00001800 

c 

PIDO.R,  DIVING  NEm  least-costs. 

00001810 

c- 

OOOCl 820 

DO  160  I»2,NSUP 

00001830 

IF  (I-NSUP)  AO, 50, 50 

00001 BAO 

<.0 

LC»1 

00001850 

CO  TO  70 

00001860 

50 

IF  ( ITEST)  AO, 60, AO 

00001870 

60 

LC»NLEV 

00001880 

70 

CO  150  L»LC,NLEV 

00001890 

KK*LEV)  I ) 

00001900 

C 

00001910 

C 

11. I FOR  A PRODUCTION  LEVEL  FIND  VARIOUS  COMBINATIONS  WHICH  MEET 

00001920 

C 

THE  REQUIREMENTS. 

00001930 

C 

000019AO 

DU  110  K«1  ,KK 

00001950 

DIFF  *SURP I L ) -PLEVI I ,K ) 

00001960 

IF  (DIFF)  120, BO, 80 

00001970 

80 

00  90  J«1,NLEV 

00001980 

IF  (CIFF-SURP( J) ) 110,100,90 

00001990 

90 

CONTINUE 

00002000 

100 

FF)h  )»COST( 1 ,K )*F( 1 -1 ,J) 

00002010 

no 

CONTINUE 

00002020 

K>KK«1 

00002030 

120 

RrK-l 

000020A0 

J*K 

00002050 

R*I0.E«2O 

00002060 

c 

00002070 

c 

11.2  select  THE  LOWEST  COST  ALTERNATIVE  AND  SAVE  IT  FOR 

00002080 

c 

combination  with  the  NEXT  BIDDER'S  COSTS. 

00002090 

c 

00002100 

00  1 AO  K>1 , J 

00002110 

IF  (FF(N)-RI  nO.lAO.lAO 

00002120 

130 

R*FF (K) 

00002130 

KA*K 

000021A0 

- 

Figure  5-2.  Program  1 Listing,  DYNPRO  Subroutine  (1  of  2) 

i 

• 

30 

X ( I , L ) 'PLE V(  I ,KA  I 

CCNTINUE 

F U ,L  ) ‘R 

CONTINUE 

CONT  1 NOE 

1?  FOR  EACH  BID  LEVEL  FOR  WHICH  A SOLUTION  IS  DESIRED,  WORK 
backwards  bidder  by  bidder  TO  ASSEMBLE  AND  THEN  PRINT  THE 
LEAST-COST  solution. 


IF  ( I TEST  .EU  .0  I N»NLEV 
DO  2DO  LL.M.NLEV 

12.1  ass'mbl:  the  solution. 

I»NSUP 

DELT  1 I I .5URP  ILL  I 
XF INI  I)  >XI  I ,LL  ) 

1*1-1 

12.11  FIRST  COMPUTE  THE  BALANCE  REMAINING  TO  BE  MET. 

DELT ( I I.JELT ( l4l  1-XFIN( 1*1 » 

12.12  FOR  THIS  BALANCE  FIND  BIDDER  I'S  BIO  LEVEL  IN  THE  LEAST 
SOLUTION. 

DO  1«0  Ltl.NLEV 

IF  (DELTI I )-SURPIL I I 200,190,180 
CONTINUE 

12.13  SAVE  BIDDER  I'S  BID  LEVEL. 

XFIN(n*X(I,L) 

CONTINUE 

IF  I I-l  I 210,210,170 

12.2  WHEN  DUNE  FUR  ALL  BIDDERS,  WRITE  ANSWERS. 

PRINT  ^50,  SURPI LL ) ,F (N5UP,LL I 

DU  220  I'l.NSUP 

PRINT  240,  1 ,XF  I N( n 

CONTINUE 

RETURN 

format  I7H  BIDDER, 13, F12. 01 

FORMAT  l/,19h  RELUIREMENT  LEVEL  ,F10.0,19H  MINIMUM  COST  ,F10. 
FORMAT  IIOHOSOLUTIONS > 

END 


00002150 
00002160 
00002170 
00002180 
00002190 
00002200 
00002210 
00002220 
00002230 
00002290 
00002250 
00002260 
00002270 
00002280 
00002290 
00002300 
00002310 
00002320 
00002330 
00002390 
00002350 
00002360 
00002370 
00002380 
00002390 
-C0ST00002900 
00002910 
00002920 
00002930 
00002990 
00002950 
00002960 
00002970 
00002980 
00002990 
00002500 
00002510 
00002520 
00002530 
00002590 
00002550 
00002560 
00002570 
00002580 
00002590 
00002600 
00002610 
01  00002620 
00002630 
00002690 


Figure  5-2.  Program  1 Listing,  DYNPRO  Subroutine  (2  of  2) 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 
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PROCRAH  2 

Tyo  PERIOO/HER  MULTIPLE  BID  EVALUATICN  - FOR  TyO  BID  PERIODS 

UR  TyO  BID  ITEMS.  PROVIDES  LEAST-COST  SOLUTIONS  AT  EACH  POSSIBLE 

SET  OF  BIO  LEVELS. 

1 IDENTIFICATION  OF  VARIABLES. 

BIO  - BIO  COST. 

BLEVEL  - BID  LEVEL  . 

COSTII.L.LLl  - the  array  OF  610  COSTS  FOR  EACH  BIDDER  1,  FOR 

FIRST  PERILO/ITEM  BID  LEVEL  L AND  SECOND  PERIOD/ITEM  BIO 
LEVEL  LL. 

OELTKII  - AMOUNT  OF  FIRST  PERIOO/ITEM  REOUIREMENT  MET  BY  BIDDERS 
1 THRU  I . 

DELT^(I)  - AMOUNT  OF  SECOND  PEklUD/ITEM  RECUIREMENT  MET  BY 
BIDDERS  1 THRU  I. 

DlFl  - FIRST  period/item  EID  LEVEL  DESIRED  FOR  PREVIOUS  BIDDERS. 
WHEN  ADDED  TO  CURRENT  BIDDER'S  FIRST  LEVEL  OF  K,  GIVES  A 
total  FIRST  BIO  LEVEL  OF  L. 

0IF2  - SECOND  BID  LEVEL  DESIRED  FDR  PREVIOUS  BIDDERS.  RHEN  ADDED 
TO  CURRENT  BIDDER'S  SECOND  BIO  LEVEL  OF  KK,  GIVES  A TOTAL 
SECOND  BIO  LEVEL  OF  LL. 

DUMMY  - A HIGH  VALUE  USED  TO  INITIALIZE  THE  COST  ARRAY  FOR  EASE 
OF  HANDLING  BIOS  NOT  MADE. 

FII.L.LLI  - HIMFUM  COST  FOR  BIDDERS  1 THRU  I AT  FIRST 

PERIOD/ITEI'  level  L AND  SECOND  PERIOO/ITEM  LEVEL  LL. 

FF  - COST  OF  meeting  DESIRED  REQUIREMENTS  USING  CURRENT  BIDDER 
AT  CURRENT  LEVEL  AND  PREVIOUS  BIDDERS  AT  BEST  COMBINED 
LEVEL. 

I - BIDDER. 

ICON  - contractor  or  BIDDER  INDEX. 

IT  - title  element  index. 

ITEST  - .1  - CCFPUTING  ANSyERS  FDR  SUBMAXIMAL  AS  NELL  AS  MAXIMAL 

BIO  LEVELS. 

•0  - COMPUTING  FOR  MAXIMAL  BID  LEVELS  ONLY. 

ITYPE  - «1  - STUDY  IS  FUR  T yQ  ITEMS. 

•0  - STUDY  IS  FUR  TyU  PERIODS. 

J - SECOND  LEVEL  BID  INDEX. 

JJ  - SECOND  R£R1I. D/ITEM  BID  LEVEL  FOR  PRECEDING  BIDDERS.  JJ  AND 
CURRENT  BIDDER'S  SECOND  LEVEL  KR  ADD  TO  SECOND  LEVEL  LL  . 

K1  - number  of  bid  levels  for  BIDDER  FUR  FIRST  PERIOD/ITEM. 

KZ  - number  LF  bio  levels  for  bidder  for  SECOND  PERIOD/ITEM. 

L - FIRST  BID  LEVEL  INDEX  . 

LC  - INDEX  OF  LOWEST  FIRST  PERIOD/ITEM  BID  LEVEL  FOR  NHICH 
SOLUTION  IS  DESIRED. 

LEVLin  - NUMBER  OF  FIRST  PERIUO/ITEM  BIO  LEVELS  BIO  BY  BIDDER  I. 
IN  COMPUTATION  SECTION,  ECUALS  NLEVl. 

LEVZdl  - number  of  second  PERIDD/ITEM  BID  LEVELS  BIO  BY  BIDDER  I 
IN  COMPUTATION  SECTION,  EQUALS  NLEV2. 

LL  - SECOND  BID  LEVEL  INDEX. 

LLC  - INDEX  OF  LOyEST  SECOND  PERIOO/ITEM  BIO  LEVEL  FOR  NMICH 
SOLUTION  IS  DESIRED. 

LLL  - FIRST  BID  LEVEL  INDEX. 


00000010 

ooocoozo 

00000030 

OOOOOOAO 

00000050 

OOOOOOBO 

00000070 

00000080 

00000090 

00000100 

ooooono 

OOOColZO 

00000130 

COOOOIAO 

00000150 

OOOOOIGO 

00000170 

OOOCOIBO 

00000190 

00000200 

jOOOOZlO 

00000220 

00000230 

000002AO 

C0000250 

00000260 

00000270 

00000280 

00000290 

00000300 

00000310 

00000320 

00000330 

000003<.0 

00000350 

00000360 

00000370 

00000380 

00000390 

OOOOOAOO 

00000910 

00000920 

0G000930 

00000990 

00000950 

00000960 

00000970 

.00000980 

00000990 

00000500 

00000510 

00000520 

00000530 


Figure  5-3.  Program  2 Listing  (1  of  7) 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 
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LLLL  - SECOND  BID  LEVEL  INDEX. 

M - FIRST  PERICD/ITEH  BID  LEVEL  PLUS  1. 

MCCIN  - CUNIRACIUR  COUNTER. 

HM  - SECOND  PERILD/ITEM  BID  LEVEL  PLUS  I. 

NLEVl  - NUMBER  U(  FIRST  PERIOD/ITEM  BID  LEVELS. 

NLEV;  - number  DP  SECOND  PERIOD/ITEM  BID  LEVELS. 

I.SUP  - NUMBER  OF  BIDDERS. 

NTEST  - *1  TC  PRINT  BID  LEVELS  AND  LEAST  COSTS  FDR  TESTING. 

*0  IF  not  testing. 

PLEVl  - BIO  LEVELS  FOR  PERIOO/ITEM  1. 

PLEV^  - BID  LEVELS  FlR  PERICD/ITEM  2. 

R - minimum  COST  FOUND  St)  FAR,  AN  INTERMEDIATE  RESULT. 

SURPl  - BIO  LEVE' ' FOR  PERIUD/ITEM  1. 

SURPi  - BID  LEV  FUR  PERIOO/ITEM 

Xlll.L.LL)  - FIR.,.  PERIOO/ITEM  910  LEVEL  OF  BIDDER  I'S  CINTR19U- 
TION  TC  least-lost  SOLUTION  AT  FIRST  PERIOO/ITEM  LEVEL  L 
AND  SECOND  PERIOO/ITEM  LEVEL  LL  USING  ONLY  BIDDERS  1 THRU  1 
X2(I,L,LL)  - SECIND  PERIJC/ITEM  blO  LEVEL  OF  BIDDER  I'S  CONTRIBU- 
TION TL  LEAST-COST  SOLUTIQ.N  AT  FIRST  PERIOD/ITEM  LEVEL  L 
AND  SECOND  PERIOD/ITEM  LEVEL  LL  USING  ONLY  BIDDERS  1 THRU  I 
XFINl(l)  - BID  LEVEL  OF  BIDDER  I'S  FIRST  PERIOO/ITEM  810  WHICH  IS 
PART  OF  THE  LEAST-COST  SOLUTION. 

XFIN2(I)  - BID  LEVEL  OF  BIDDER  I'S  SECOND  PERIOO/ITEM  BIO  WHICH 
IS  PART  CF  The  LEAST-COST  SOLUTION. 

XXI  - SET  OF  first  PERIOO/ITEM  BIO  LEVELS  FOR  A CONTRACTOR  FOR 
SUCCESSIVELY  improving  BIDS.  FOR  TESTING  ONLY. 

XX2  - SET  OF  SECIND  PERIOD/ITEM  BIO  LEVELS  FOR  A CONTRACTOR  FOR 
SUCCESSIVELY  IMPROVING  BIDS.  FOR  TESTING  ONLY. 

2 DIMENSION  STATEMENTS. 

DIMENSION  XXIISO),  XX2I50) 

DIMENSION  SURPll2n,  SURP2(21),  Xl(10.21,?n,  X2n0,21.21) 
DIMENSION  F( 10  ,21  ,21  I 

DIMENSION  LEVIIIO),  LEV2I10),  P L E V 1 ( 1 0 , 2 1 I , PLEV2(10,21I 
dimension  cost  (10,21  ,21  I 

DIMENSION  XFINlllOl,  XFIN2(10I,  OELTIIIOI,  OELT2(10I 
DIMENSION  BLEVEL(2I,  TITLEISI 

3 READ  TITLE,  BASIC  PARAMETERS,  AND  BID  LEVELS. 

READ  (5,580)  ( T I TLE  ( I T I ,I T»1  ,51 

WRITE  (6,5901  ( TI  TLE ( IT  ) , IT*1  ,51 

READ  (5, 590)  NSUP, NLEVl, NLEV2,ITYPE, NTEST, ITEST 

WRITE  (6,600)  NSUP 

(ITYPE.EO.O)  WRITE  (6,6101  NLEVl 
(6,620)  NLEV2 


I F 
IF 
IF 
IF 


(ITYPE.EO.O)  WRITE 
(ITYPE.EO.I)  write  (6,630)  NLEVl 

(ITYPE.EQ.I)  write  (6,tN0l  NLEV2 

IF  (NSUP. GT. 10)  WRITE  (6,6501  NSUP 

IF  (NLEVl .GT  .2  1 I WRITE  (6,660  ) NLEVl 
IF  INLEV2 .GT  .21  ) WRITE  (6,660)  NLEV2 
IF  (NSUP.GT.IO.OR .NLEVl .GT.21 .0R.NLEV2.GT  .21  I 
OUMMYwl .E*15 


STOP 


OOOOOSAO 

00000550 

00000560 

00000570 

00000580 

00000590 

00000600 

00000610 

00000620 

00000630 

D00006A0 

00000650 

00000660 

00000670 

000006BO 

00000690 

.00000700 

00000710 

C0000720 

.00000730 

00000740 

00000750 

00000760 

00000770 

00000780 

00000790 

00000800 

00000810 

00000820 

00000830 

00000840 

00000850 

00000860 

00000870 

00000880 

00000890 

00000900 

00000910 

00000920 

00000930 

00000940 

00000950 

00000960 

00000970 

00000980 

00000990 

00001000 

00001010 

00001020 

00001030 

00001040 

00001050 

00001060 


Figure  5-3.  Program  2 Listing  (2  of  7) 
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IF  IITYPE.EQ.OI  t.RITE  (6,730  1 

000010/0 

IF  (ITYPE.EO.l)  hRlTE  (6,7401 

00001080 

DO  10  L>1,NLEV1 

00001090 

READ  570  , SURPHLl 

00001100 

PRINT  570,  SURPKL) 

00001110 

10 

CONTINUE 

00001120 

IF  (ITYPE.EQ.Ol  hRITE  (6,7501 

00001130 

IF  ( ITYPE.EO.l  1 RRITE  (6,7601 

OOCOl 140 

DO  20  L*1,NlEV2 

00001150 

READ  570,  SURP2(Ll 

00001160 

PRINT  570,  SURP2(LI 

00001  I 70 

20 

CONTINUE 

oooo: 180 

rRITE  (6,7701 

00001 190 

C 

00001200 

c 

4 INITIALIZE  BIO  LEVELS,  BIDS,  AND  ARRAY  OF  LEAST-COSTS. 

00001210 

c 

00001220 

00  70  I *l ,NSUP 

00001230 

00  30  L-1  ,NLEV1 

00001240 

PLEVl ( I ,L 1 ‘SURPl (L 1 

00001250 

30- 

CONTINUE 

00001260 

00  40  LL  *1 ,NLEV2 

00001270 

PLEV21  1 ,LLI*SURP2(LLI 

00001280 

40 

CONTINUE 

00001290 

CO  60  L*1  ,NLEVl 

00001 300 

DO  50  LL«l,NLEy2 

00001310 

COST ( I ,L,LL I«0UMMY 

00001320 

50 

CONTINUE 

00001 330 

60 

CONTINUE 

00001340 

70 

CONTINUE 

0C001350 

DO  90  K«1 ,NLE VI 

00001 360 

DO  80  J>I  ,NLEV2 

00001370 

F ( 1 ,K  , J 1 •DUMMY 

00001 380 

80 

CONTINUE 

00001 390 

90 

CONTINUE 

00001400 

C 

00001 410 

C 

5 READ  BIOS  FLR  EACH  BIDDER. 

00001420 

C 

C0001430 

DO  160  I*1,NSUP 

00001440 

READ  550.  LEV1(II,LEV2(I1 

COOOl 450 

K1>LEV1  ( I 1 

00001460 

K2*LEV2( 1 ) 

00001470 

IF  (ITYPE  .EO.l  ) RRITE  (6,780  1 

00001480 

IF  (ITYPE. EQ.l)  rRITE  (6,790  1 

00001490 

DO  150  K«1  ,K1 

00001500 

00  140  J*1,K2 

00001510 

READ  560.  BLEVEL ( 1 1 .BL EVEL (2 1 ,810 

00001 520 

mRITE  (6,8001  1 .BLEVEL ( 1 1 .BLEVEL (2 1 , BID 

00001 530 

00  100  L*1,NLEV1 

00001540 

IF  (8LEVELI1I.EC.SURP1IL!I  CO  TO  110 

00001550 

100 

CONTINUE 

00001 560 

■RITE  (6,8101 

00001570 

STOP 

00001580 

no 

DO  120  LL«1,NLEV2 

00001590 

Figure  5-3.  Program  2 Listing  (3  of  7) 
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IF  ( 9LEVEL  12  1 .Ea.SUI>P2(LL  1 ) GO  TO  130 

00001 600 

wo 

CONTINUE 

00001610 

mRITE  (6,8201 

00001620 

STOP 

00001630 

130 

COST( I ,L  ,LL I *6  ID 

00001640 

UO 

CONTINUE 

00001650 

150 

CUNT  1 NUE 

00001660 

160 

CONTINUE 

00001670 

c 

00001680 

c 

6 SETUP  TO  PROCESS  ALL  BIO  LEVELS. 

00001690 

c 

00001 700 

00  170  Wl.NSUP 

00001 710 

LEVI  ( I I^NLEVl 

00001 720 

LEV2(  I l«NLEV2 

00001 730 

170 

CONTINUE 

00001 740 

C 

00001 750 

C 

7 TRANSFER  OATA  TO  COH PUT  AT  1 ONA L ARRAYS. 

00001 760 

C 

00001770 

1-1 

00001 780 

K1  -LEVI (1 1 

00001790 

- 

K2.LEV2(1 1 

00001 800 

00  200  K>1  ,K1 

cioooieio 

00  190  J«1,K2 

00001820 

F 1 1 ,K  , J ) -COST ( 1 ,K , J 1 

00001830 

XI ( 1 ,K,  J)  .PLE VI ( 1 ,K 1 

00001840 

X2I  1 ,K,J|*PLEV2I I ,JI 

00001850 

MC0N«1 

00001860 

XX  1 1 1 1 •PLEVI ( 1 ,K 1 

00001870 

XX2(1  )•PLEV^(1 ,J) 

00001 880 

IF  (NTESTI  180,190,180 

00001890 

180 

xRlTE  16,8301  I ,K,J,F (I ,K ,J) 

00001900 

IF  (ITYPE.EQ.OI  hRITE  (6,f<.OI  XXKMCONI 

00001910 

IF  (ITyPE.E0.01  I.RITE  (6, 6501  XX2(MC0NI 

00001920 

IF  (ITyPE.EO.I)  kRITE  (6,860)  XXKMCONI 

00001930 

IF  (ITYPE.EO.n  RRITE  (6,8701  XX2(MC0NI 

00001940 

190 

CONTINUE 

00001950 

200 

CONTINUE 

00001960 

C 

00001970 

c 

8 FINO  LEAST-COST  SOLUTIONS  BY  CONSIDERINC,  AOOITI'JNAL  BIDDERS 

00001980 

c 

UNE  AT  A TIME. 

00001990 

c 

00002000 

RRITE  (6,880) 

00002010 

CO  <,00  I «2  ,NSUP 

00002020 

IF  (I-NSUP)  230,210,210 

00002030 

210 

IF  (ITEST)  230,220,230 

00002040 

220 

LC'NLEVl 

00002050 

LLC •NLEV2 

00002060 

00  TU  2<i0 

00002070 

230 

LC-1 

00002080 

LLC>1 

00002090 

C 

00002100 

c 

8.1  SEARCH  FOR  LEAST  COSTS  FOR  EACH  DESIRED  SET  OF  BID  LEVELS. 

00002110 

c 

00002120 

Figure  5-3.  Program  2 Listing  (4  of  7) 
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2<.0 

LO  390  L«LC.NLEV1 

00002, 30 

00  380  LL  'LLC  .NLEV2 

00002190 

K1>LEV1 ( 1 ) 

00002150 

HC0N«1 

00002160 

M.l 

000021 70 

00002180 

R-100000»0UMMY 

00002190 

C 

00002200 

C 

8.11  determine  RE2UIREMENT  FOR  PRECEDING  8I0DERS  TO  MEET. 

00002210 

C 

00002220 

00  390  K«1  ,K1 

000C2230 

01  FI • SURPl ( L ) -PLEVl ( I ,K) 

0000'290 

IF  (DIFl)  350,250,250 

00002250 

250 

K2«LEV2( 1 ) 

00002260 

DO  330  KK>1,K2 

00002270 

01 F2»SURP2 (LL )-PLEV2 ( I ,KK 1 

00002280 

IF  (DIF2)  390,260,260 

00002290 

C 

00002300 

C 

8.12  FIND  BID  LEVELS  WHICH  MEET  THAT  RECUIREMENT. 

00002310 

C . 

00002320 

260 

DO  270  J*1,NLEV1 

00002330 

IF  (DlFl-SURPl (J>)  280,280,270 

00002390 

270 

CONTINUE 

00002350 

260 

DO  290  JJ»1  ,NLEV2 

00002360 

IF  (0IF2-SURP2< JJI 1 300,300,290 

00002370 

290 

CONTINUE 

00002380 

C 

00002390 

C 

8.13  COMPUTE  TOTAL  COST  FOR  COMBINATION. 

00002900 

C 

00002910 

300 

FF*C0STII,K,KR)+F(1-1,J,JJ) 

00002920 

c 

00002930 

c 

8.19  COMPARE  TOTAL  COST  FOR  THIS  COMBINATION  WITH  THE  TOTAL  COST 

00002990 

c 

OF  The  previously  best  COMBINATION.  KEEP  THE  BETTER  ONE. 

00002950 

c 

00002960 

IF  (R-FFI  330,310,320 

00002970 

310 

XXI (MCUN)*PLEV1(1 ,K1 

C0002980 

XX2(MCUNI*PLEV2(I ,KKI 

00002990 

MC0N«MC0N»1 

00002500 

CO  TO  330 

00002510 

320 

M«K*1 

00002520 

MM>KK«1 

00002530 

HCON>I 

00002590 

R-FF 

00002550 

GO  TO  310 

00002560 

330 

CONTINUE 

00002570 

390 

CONTINUE 

000C2580 

C 

00002590 

c 

6.2  SAVE  BEST  VALUES. 

00002600 

c 

00002610 

350 

FII,L,LL)>R 

00002620 

XllI,L,LL)*PLEVllI,M-n 

00002630 

X2II,L,LLI>PLEV2(I ,HM-1I 

00002690 

C 

00002650 

Figure  5-3.  Program  2 Listing  (5  of  7) 
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c 

c 

c 

360 


370 

360 

390 

<•00 

C 

c 

c 

c 


c - 

c 

c 


<•10 

c 

c 

c 


c 

c 

c 

c 


<•20 

<•30 

<•<•0 

c 

c 

c 

<•50 

<•60 

c 

c 

c 


6.3  IF  JESTING,  WRITE  THE  BIDDER,  THE  BID  LEVELS,  AND  THE  LEAST 
COST  FOr'bIDOERS  1 thru  I AT  THESE  LEVELS. 

IF  (NTESTI  360,360,360 

WRITE  16,630  ) I ,L ,LL  ,F  (I ,L,LL  ) 

MCQN»MCON-l 
DO  370  IC0N*1,MCDN 
..RITE  (6,8<.0)  XXKHCCNI 
nRITE  (6,650)  XX2IHCQN) 

CONTINUE 

CONTINUE 

CONTINUE 

CONTINUE 

9 FOR  EACH  DESIRED  PAIR  OF  BID  LEVELS,  WORK  BACKWARDS  BIDDER 
BY  BIDDER  TO  ASSEMBLE  AND  PRINT  FINAL  SOLUTIONS. 

DO  530  LLL«LC,NLEV1 
DO  520  LLLL*LLC,NLEV2 

9.1  ASSEMBLE  SOLUTIONS. 

I -NSUP 

DELTl  I I ) «SURP1  ILLL  I 
DELT2 ( 1 )»SURP2 (LLLL  I 
XFINI ( I ) >X1 I 1 ,LLL,LLLLI 
XF IN2 ( I ) •X2 ( 1 ,LLL ,LLLL  I 
I-l-l 


9.11  COMPUTES  BALANCE  REMAINING  TO  BE  NET  FOR  EACH  PERIOD/ITEH. 

0ELTI(I|.0ELT1(I+1)-XFIN1(I»1I 

DELT2(I)*DELT2(I«1)-XF|N2(I«1I 

9.12  FOR  THOSE  BALANCES  FIND  BIDDER  I'S  BIO  LEVELS  IN  THE 
LEAST-COST  SOLUTION. 

00  <.20  L •!  ,NLE  VI 

IF  (DELTl  ( I )-SURPl  ( LI  ) <.30  ,<.30  ,<.20 
CONTINUE 

DO  <.<.0  LL  >1  ,NLEV2 

IF  I0ELT2  ( I )-SURP2(LL  ) ) <.60, <150, <.<>0 
CONT  INUE 

9.13  SAVE  THOSE  BIO  LEVELS. 

XFIN1II)>X1(I,L,LLI 
XFIN2(I  )>X2(I  ,L,LLI 
CONTINUE 

9.2  WHEN  DONE,  WRITE  ANSWERS. 

IF  (1-11  670, <.70, 610 


00002660 

00002670 

00002680 

00002690 

00002700 

00002710. 

00002720 

00002730 

00002760 

00002750 

00002760 

00002770 

00002780 

00002790 

00002800 

00002810 

00002820 

00002830 

00002860 

00002850 

00002860 

00002870 

00002860 

00002890 

00002900 

00002910 

00002920 

00002930 

00002960 

00002950 

00002960 

00002970 

00002980 

00002990 

00003000 

00003010 

00003020 

00003030 

00003060 

00003050 

00003060 

00003070 

00003080 

00003090 

00003100 

00003110 

00003120 

00003130 

00003160 

00003150 

00003160 

00003170 

00003180 
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<.70 

IF  (F  (NSUP  ,LLL  ,LLLL  l-OUMMY)  <.90  ,<.80  ,<.80 

00003190 

<•80 

WRITE 

(6,680)  SURPl (ILL ),SURP2(LLLLI 

00003200 

WRITE 

(6,720) 

00003210 

00  TO 

510 

00003220 

<.90 

WRITE 

(6,670)  SURPl (ILL), SURP2(LLLL),F(NSUP,LLL,LLLL) 

00003230 

IF  (ITYPE.EQ.Ol  WRITE  (6,690) 

000C32A0 

IF  (1TYPE.EQ.1I  WRITE  (6,700) 

00003250 

00  500 

1*1  ,NSUP 

00003260 

WRITE 

(6,710)  1,XFIN1(1),XFIN2(I) 

C0003270 

500 

CONTINUE 

00003280 

510 

CONTINUE 

00C032Y0 

520 

CONTINUE 

0000^300 

530 

CONTINUE 

00003310 

STOP 

00003320 

C 

00003330 

5<.0 

FORMAT 

(1013) 

000033<.0 

550 

FORMAT 

(213) 

00003350 

560 

format 

(3F10.0) 

00003360 

570 

FORMAT 

(FIO.O) 

00003370 

580. 

FORMAT 

(SA<.) 

00003380 

590 

FORMAT 

( IHl  ,5A<.) 

00003390 

600 

format 

(lH0,I2,8h  BIDDERS) 

00003<.00 

610 

format 

(IH  ,12,28H  BID  LEVELS  FOR  FIRST  PERIOD) 

00003<.10 

620 

FORMAT 

(IH  ,I2,29h  bid  levels  FDR  SECOND  PERIOD) 

00003<.20 

630 

FORMAT 

(IH  ,I2,26H  BID  LEVELS  FOR  FIRST  ITEM) 

00003A30 

6<.0 

format 

(IH  ,I2,27H  BID  LEVELS  FDR  SECOND  ITEM! 

00003<.<.0 

650 

FORMAT 

(1H0,13,31H  SUPPLIERS  IS  TOO  MANY  (10  MAX)1 

00003650 

660 

FORMAT 

(IH0,I3.32H  BID  LEVELS  IS  TOO  MANY  (21  MAX)) 

00003A60 

670 

FORMAT 

(1H0,19H  REQUIREMENT  L E V E L 1 , F 1 0 .0 , 1 9H  REQUIREMENT 

LEVEL2,F100003670 

10.0,1<.M  MINIMUM  COST  ,F10.0) 

00003680 

680 

format 

(1H0,19F<  REQUIREMENT  LE  VEL  1 , F 1 0 .0 , 19H  REQUIREMENT 

LEVEL2,F100003690 

10.0) 

00003500 

690 

FORMAT 

(IH  ,1<.X,9H  PERIOD  1,10X,9H  PERIOD  2) 

00003510 

700 

FORMAT 

(IH  ,1<.X,9H  ITEM  1,10X,9H  ITEM  2) 

00003520 

710 

FORMAT 

(IH  , 6H BIDDER, 13, 2 X,F10.0,10X, FIO.O) 

00003530 

720 

forma  T 

(IH  ,22H  NO  FEASIBLE  SOLUTIONS) 

00003560 

730 

FORMAT 

(28H0B1C  LEVELS  FOR  FIRST  PERIOD) 

00003550 

7<.0 

FORMAT 

(26HOBIO  LEVELS  FOR  FIRST  ITEM) 

00003560 

750 

FORMAT 

(29H0BID  LEVELS  FOR  SECOND  PERIOD) 

00003570 

760 

FORMAT 

(27H0bIC  LEVELS  FDR  SECOND  ITEM) 

00003580 

770 

FORMAT 

(5H1B1DS) 

00003590 

780 

FORMAT 

)1H0,11X,30H  PERIOD  1 PERIOD  2 TOTAL  COST  I 

00003600 

790 

FORMAT 

(1h0,11X,30H  item  1 ITEM  2 TOTAL  COST  ) 

00003610 

800 

FORMAT 

( lH0,6He I ODER, 13 ,3F10 .0 ) 

00003620 

8 10 

FORMAT 

(1H0,26HF1RST  BID  LEVEL  IS  ILLEGAL) 

00003630 

820 

FOR)  AT 

( IHO  ,27HSEC0ND  BID  LEVEL  IS  ILLEGAL) 

00003660 

830 

FORMAT 

(IHO, 313, FIO.O) 

00003650 

8<.0 

FORMAT 

(1H0,9HPER1DD  I, FIO.O) 

00003660 

850 

FORMAT 

(IH  ,9HPERI00  2, FIO.O) 

00003670 

860 

FORMAT 

(IH0,9H  ITEM  1, FIO.O) 

00003680 

8 70 

FORMAT 

(IH  ,9H  ITEM  2, FIO.O) 

00003690 

880 

FORMAT 

(1H1,20X,17HOPT1MAL  SOLUTIONS) 

00003700 

END 

00003710 

Figure  5-3.  Program  2 Listing  (7  of  7) 
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c 
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c 

c 

c 

c 

c 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 
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PROGRAM  3 

THREE  PER  IJDO/ I TEP  MULTIPLE  B 1 L'  EVALUAIICN  - FDR  THREE  BID  PERIODS 

>R  three  bid  ITERS.  PROVIDES  LEAST-COST  SOLUTIONS  AT  EACH 

POSSIBLE  SET  OF  HD  LEVELS.  PROVIDES  SECOND-BEST  SOLUTIONS  AT 

THE  total  RELUIREMENT  BIO  LEVELS. 

1 IDENTIFICATION  OF  VARIABLES. 

BID  - BIO  COST  . 

BLEVEL  - BIO  LEVEL 

COST  I I , J ,K,L  I - the  ARRAV  of  BID  COSTS  FOR  EACH  BIDDER  I,  FOR 
FIRST  PERU0/IIE“  BIO  LEVEL  J,  SECOND  PERIOD/ITEM  BIO 
LEVEL  v,  Af.D  THIRD  PfRIUD/ITEM  Bit  LEVEL  L. 

DELTHI)  - AMOUNT  OF  FIRST  PERIOD/ITEM  REtUIREMENT  MET  BY 
BIDDERS  1 thru  I. 

DELTi(l)  - amount  of  SECOND  PERIUO/ITEM  REQUIREMENT  MET  BY 
BIDDERS  1 THRU  1. 

DELTBII)  - AMOUNT  OF  THIRD  PEkIOO/ITEM  REQUIREMENT  MET  BY 
BIDDERS  1 THRU  I. 

DIFl  - first  PfR|C0/IT£M  BID  LEVEL  DESIRED  FOR  PRECEDING  BIDDERS. 
fcHEN  ADDED  TO  CURRENT  BIDDER'S  FIRST  BID  LEVEL  OF  J,  GIVES 
A TOTAL  FIRST  BID  LEVEL  OF  LS. 

DIFi  - SECOND  PERIOO/ITFm  blD  LEVEL  DESIRED  FOR  PRECEDING 
BIDDERS. 

01F3  - Third  P£R|CD/ITEM  bid  level  DESIRED  FOR  PRECEDING  BIDDERS. 

DUMMY  V A HIGH  VALUE  USED  TO  INITIALIZE  THE  COST  ARRAY  FOR  EASE 
OF  HANDLING  BIOS  NOT  MADE. 

DYNPRO  - the  subroutine  kmICH  FINOS  THE  LEAST-COST  AND  NEXT-BEST 
SOLUTIONS. 

F ( 1 ,LS,LL S.LLL SI  - MINIMUM  COST  FOR  BIOGERS  I THRU  I AT  LEVEL  LS 
FOR  first  PERIUO/HEM,  level  ILS  FUR  SECOND  PERIOD/ITEM, 

AND  LEVEL  LLS  FOR  THIRD  PERIOO/ITEM. 

FF  - trial  CuST  lF  an  INTERMEDIATE  SOLUTION. 

FINXIdl  - ARRAY  IN  «HICH  FIRST  PERIOD/ITEM  LEAST-COST  BID 

LEVELS  ARE  STORED  TC  AID  IN  FINDING  NEXT-BEST  SOLUTIONS. 

FINXZ(I)  - ARRAY  IN  UHICH  SECOND  PERIDO/ITEM  LEAST-COST  BID 

LEVELS  ABE  STORED  Tf  AID  IN  FINDING  NEXT-BEST  SOLUTIONS. 

FINX3III  - ABHAY  IN  «HICH  Third  pERIQO/ITEM  least-cost  bid  LEVELS 
ARE  stereo  to  aid  in  FINDING  NEXT-BEST  SOLUTIONS. 

I - BIDDER 

ICON  - CONTBACraR/eiODER  index. 

IJ  - FIRST  Pt»IDD/ITfM  BID  LEVEL  INDEX. 

IJJ  - SECOND  PFRIOD/ITEM  BIO  LEVEL  INDEX. 

IJJJ  - Third  fEkIOO/ITEm  bid  LEVEL  INDEX. 

IT  - TITLE  INDEX. 

ITEST  - EQUATfC  TO  I’ESI  AND  LATER  TO  1TES2, 

•1  FOR  PRINTING  SOLUTIONS  FOR  SUBMAXIMAL  PRODUCTION 

levels. 

•0  FOR  printing  total  REQUIREMENT  LEVEL  SOLUTIONS  ONLY. 

ITESl  - INPUT  parameter. 

•I  FOR  PRINTING  LEAST-COST  SOLUTIONS  FOR  SUBMAXIMAL 
PRODUCTION  LEVELS. 

•0  FCR  PRINTING  LEAST-COST  SOLUTIONS  FOR  TOTAL 


00000010 

000000^0 

00000030 

OOOOOORO 

00000050 

00000060 

00000070 

00000080 

00000090 

00000100 

00000110 

00000120 

00000130 

ooooouo 

00000150 

00000160 

00000170 

oooooiac 

00OC019O 

00000200 

00000210 

COC00220 

00000230 

000002NO 

000C025O 

0000C260 

OD000270 

00000280 

00000290 

00000300 

00000310 

00000320 

O0OOG33O 

000003NO 

00000350 

00000360 

00000370 

00000380 

00000390 

OOOOONOO 

OOOOONIO 

00000N20 

00000<>30 

OOOCONNO 

OOOOONSO 

00000<>60 

00000<|70 

00000680 

00000690 

ooooosoo 

ooooosio 

00000S20 

00000S30 
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c 

c 

c 
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c 

c 

c 

c 

c 

c 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 
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r 

c 

c 
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hFQUlREMENt  LEVEL  ONLY. 

ITES2  - INPUT  PAkAMETER. 

•1  fCR  PRINTING  NEXT-LEAST-COST  SOLUTIONS  FOR  SUBMAXIMAL 
PRUOUCTION  LEVELS. 

•0  FUR  PRINTING  NE X T -L E A S T -C 0 S T SOLUTIONS  FOR  TOTAL 
recuirement  level  only. 

ITYPE  - »I  IF  STUDY  IS  FCR  THREE  ITEMS. 

•0  IF  STUDY  IS  FCR  THREE  PERIODS. 

J - BID  LEVEL  INDEX. 

K - BID  LEVEL  INDEX. 

K1  - NUMBER  CF  FIRST  PERICD/ITEM  LEVELS  610. 

- NUMBER  OF  SECOND  PERIOO/ITEM  LEVELS  BIO. 

K3  - NUMBER  CF  ThIRD  PERICD/ITEM  LEVELS  BIO. 

L - FIRST  PERIOO/ITEM  BIO  LEVEL  INDEX.  ALSO  USED  AS  THIRD 
PERIOD/ITEM  BIO  LEVEL  INDEX. 

LI  - Third  periug/item  bid  level  index. 

LC  - INDEX  OF  LOfcEST  FIRST  PERIOO/ITEM  BIO  LEVEL  FOR  WHICH 
SOLUTION  IS  DESIRED 

LEVIIII  - NUMBER  OF  FIRST  PERIOO/ITEM  BID  LEVELS  BID  BY  BIDDER  I. 

IN  COMPUTATION  SECTION,  EQUALS  NLEVl. 

LEV^(I)  - NUMBER  OF  SECOND  PERIOO/ITEM  BID  LEVELS  BIO  BY  BIDDER  I 
IN  COMPUTATION  SECTION,  EQUALS  NLEV2. 

LEV3III  - NUMBER  OF  THIRD  PERIUD/ITEM  BIO  LEVELS  BID  BY  BIDDER  I. 

IN  COMPUTATION  SECTION,  EQUALS  NLEV3. 

LL  - SECOND  PERILD/ITEM  BIO  LEVEL  INDEX. 

LLC  - INDEX  OF  LOWEST  SECOND  PERIDD/ITEM  BID  LEVEL  FOR  WHICH 
SOLUTION  I S DESIRED. 

LLL  - third  PERIIO/ITEM  BID  LEVEL  INDEX.  ALSO  USED  AS  FIRST 
PERIOO/ITEM  BIO  LEVEL  INDEX. 

LLLC  - INDEX  OF  LOWEST  THIRD  PERIOD/ITEM  BIO  LEVEL  FOR  WHICH 
SOLUTION  I S DESIRED. 

LLLL  - SECOND  PEklUD/ITEM  BIO  LEVEL  INDEX. 

LLLLL  - THIRD  PEklOO/ITEM  BIO  LEVEL  INDEX. 

LLLS  - third  PERIOD/ITEM  BID  LEVEL  INDEX. 

LLS  - SECOND  PERIOD/ITEM  BID  LEVEL  INDEX. 

LS  - FIRST  PERIOu/ITEM  BID  LEVEL  INDEX. 

M - FIRST  PERIOD/ITEM  BIO  LEVEL  INDEX  PLUS  1. 

MCON  - CONTRACTOR  COUNTER. 

MM  - SECUNO  PERIID/ITEM  BID  LEVEL  INDEX  PLUS  1. 

MMM  - THIRD  PERILD/ITEM  BIO  LEVEL  INDEX  PLUS  1. 

NLEVl  - NUMBER  Of  FIRST  PERIOD/ITEM  BIO  LEVELS. 

NLEV2  - number  OF  SECOND  PERIUD/ITEM  BID  LEVELS. 

NLEV3  - number  Of  third  PERIOO/ITEM  BIO  LEVELS. 

NSUP  - NUMBER  CF  BIDDERS. 

NTEST  - FOR  PROGRAM  INPUT  TESTING. 

•1  FOR  A SECOND  PRINTOUT  OF  ALL  BIDS  INCLUDING  BIDS  NOT 
MADE  BUT  DUMMIED  IN. 

«0  TO  SKIP  This  PRINTOUT  . 

PLEVl  - BID  LEVELS  FOR  PERIOD/ITEM  1. 

PLEV2  - BID  LEVELS  FOR  PERIOD/ITEM  2. 

PLEV3  - BID  LEVELS  FDR  PERIOD/ITEM  3. 

k - MINIMUM  COST  YET  FOUND  FDR  THE  INTERMEDIATE  SOLUTION 

CURRENTLY  BEING  SOUGHT. 
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or  DOBAO 
00000550 
00000560 
00000570 
00000580 
00000590 
00000600 
00000610 
00000620 
00000630 
000006A0 
00000650 
00000660 
00000670 
00000630 
00000690 
00000700 
00000710 
00000720 
00000730 
000007AO 
00000750 
00000760 
00000770 
00000780 
00000790 
00000800 
00000610 
00000820 
00000830 
000008A0 
00000850 
00000860 
00000870 
00000880 
00000890 
C0000900 
00000910 
C0000920 
00000930 
000009AO 
00000950 
00000960 
00000970 
00000980 
00000990 
00001000 
00001010 
00001020 
00001030 
OOOOIOAO 
00001050 
00001060 


40 


I 


Xl ( I ,L  ,LL  ,LLL  ) 


SAVe  - VARMPIE  USED  TU  SAVE  OPTIMAL  COST  FOR  RESTORING  COST 
ARRAY  after  each  SUBOPTIMIZATION. 

SURPl  - the  FIRST  PERIGO/ITEM  BID  LEVELS. 

SURPZ  - the  SECOr.O  PERIUO/ITEM  BIO  LEVELS. 

SORP3  - THE  THIRL  PERIOO/ITEM  810  LEVELS. 
title  - TITLE  CF  STUDY. 

XFIMUI  - BIO  LEVEL  OF  BIDDER  I'S  CONTRIBUTION  TO  THE  LEAST-COST 
SOLUTION  FIR  OERIOD/ITEM  1. 

XFlNZin  - BIO  LEVEL  OF  BIDDER  I'S  CONTRIBUTION  TO  THE  LEAST-COST 
SOLUTION  FIR  PERIDO/ITEM  2. 

XFIN3(I)  - BID  LEVEL  OF  BIDDER  1*S  CONTRIBUTION  TO  THE  LEAST-COST 
SOLUTION  Ft'R  PERIIJD/ITEM  3. 

XU  I ,L  ,LL  ,LLL  ) - FIRST  PERIOD/ITEM  BIO  LEVEL  CF  BIDDER  I'S 

CG.NTRItUTILN  TO  THE  LEAST-COST  SOLUTION  AT  LEVELS  L,  LL, 

AND  LLL  USING  ONLY  EIDDERS  I THRU  I. 

X^ ( I , L ,LL  ,LLL  1 - SECOND  PERIOO/ITEM  BID  LEVEL  OF  BIDDER  I'S 

CONTRIeUTUN  TO  THE  LEAST-COST  SOLUTION  AT  LEVELS  L.  LL, 

AND  LLL  USING  ONLY  BIDDERS  I THRU  I. 

X3  ( 1 ,L  .LL  ,LLL  ) - THIRD  PERIOO/ITEM  BIO  LEVEL  OF  BIDDER  I'S 

CONTRIBUTILN  to  The  least-cost  solution  at  LEVELS  L,  LL, 

AND  LLl  using  only  E'IOOERS  I THRU  I. 

XXI  - SET  OF  FIRST  PERIDD/ITEM  BID  LEVELS  FOR  A CONTRACTOR  FOR 
SUCCESSIVELY  improving  BIDS.  FOR  TESTING  ONLY. 

XX^  - SET  OF  SEC..ND  PERIOC/ITEM  BID  LEVELS  FOR  A CONTRACTOR  FOR 
SUCCESSIVELY  IMPROVING  BIDS.  FDR  TESTING  ONLY. 

XX3  - SET  OF  ThI.D  PERIUO/ITEM  BIO  LEVELS  FDR  A CONTRACTOR  FUR 
SUCCESSIVELY  IMPROVING  BIOS.  FOR  TESTING  ONLY. 

2 COMMON  AND  DIMENSION  STATEMENTS. 

COMMON  PLEVl(IC,t),PLEV/(10,61,PLEV3(10,6l 

common  XF1M{1C1,XFIN/(10I,XF1N3110),SURP1(6I,SURP2(6),SURP3(6I 
COMMON  Levin01,LEVZ(10),LEV3(10l,COST(10,6,<>.6l  .DUMMY 
COMMON  NSUP,NLEVl,NLEVZ,NLEV3,ITYPE,NTE5T,ITEST 
DIMENSION  FINXUlO),  F1NX2I10),  FINX3(10),  BLEVELO),  TITLEIS) 

3 INITIALIZE  COSTS. 

DUMMY.1  .E»15 

00  10  I«l,iO 

DO  10  J>1,6 

DO  ID  K*1 ,6 

DO  10  L>1 ,b 

COST! 1 , J,K,L )•DUMMY 

CONTINUE 

A READ  TITLE,  BASIC  PARAMETERS,  AND  BID  LEVELS. 

READ  (5,320)  I TI  TLE I I T) ,1 T«1 ,5) 

WRITE  (6,330  ) I T ITLE ( I T I , IT.l ,5) 

READ  (5,500)  NSUP.NLE VI ,NL£V2,NL£V3, 1 TYPE ,NTEST, ITESl  ,1  TES2 

WRITE  (6,>A0)  NSUP 

IF  I ITYPE.EQ.l I GO  TO  20 


00001070 
00001080 
00001090 
00001100 
00001110 
00001120 
00001130 
00001 lAO 
00001150 
00001160 
00001170 
00001180 
00001190 
00001200 
00001210 
00001220 
00001230 
000012AO 
00001250 
00001260 
00001270 
00001260 
00001290 
00001300 
00001310 
00001320 
00001330 
OOCOl 3A0 
00001350 
00001 360 
00001370 
00001380 
00001390 
00001  BOO 
00001410 
00001420 
00001430 
00001440 
00001450 
00001460 
00001470 
00001480 
00001490 
00001500 
00001 510 
00001520 
00001530 
00001540 
00001550 
00001560 
00001570 
00001580 
00001590 
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kiRITE  (6,3S0)  NLEVl 

00001600 

MRITE  (6,360)  NLEV2 

00001 610 

WRITE  (6,370)  NLEV3 

00001 620 

(.0  TO  30 

00001630 

20 

WRITE  (6,380)  NLEVl 

00001690 

WRITE  (6,390)  NLEV2 

00001650 

WRITE  (6,900)  NLEV3 

00001660 

30 

CONTINUE 

00001670 

ITEST.ITESl 

00001680 

DO  90  LS>1 .NLEVl 

00001690 

READ  910,  5URP1 (LS) 

00001 700 

<•0 

CONTINUE 

00001 710 

DO  50  LS-1 ,NLEV2 

00001720 

REAO  910,  SURP2(LS) 

00001 730 

SO 

CONTINUE 

00001 790 

00  60  LS*1 ,NLEV3 

00001 750 

REAO  910,  SURP3(LS) 

00001 760 

60 

CONTINUE 

00001 770 

C 

00001780 

C 

5 INITIALIZE  BIO  LEVELS. 

00001790 

C 

00001 800 

00  100  I*1,NSUP 

00001 810 

DO  70  L«l, NLEVl 

00001820 

PLEVl ( 1 ,L ) -SURPl (L  ) 

000C1830 

70 

CONTINUE 

00001890 

DO  80  LL*1 ,NLEV2 

00001850 

PLEV2( l,LL)*SURP2(LL) 

00001860 

80 

continue 

00001 870 

DO  90  LLL»1 ,NLEV3 

00001880 

PLEV3I I ,LLL ) •SURP3ILLL  ) 

00001890 

90 

CONTINUE 

00001900 

100 

CONTINUE 

00001 910 

C 

00001920 

c 

6 READ  AND  ENTER  BIDS  FOR  EACH  BIDDER. 

00001930 

c 

00001990 

WRITE  (6,920) 

00001950 

DO  2U0  I «1 ,NSUP 

00001960 

READ  510,  LEVI (1 ),LEV2(1  ) ,LEV3(I  1 

00001970 

K1 <LEV1 ( 1 ) 

00001980 

k2*LEV2(1 ) 

00001 990 

K3*LEV3( I ) 

00002000 

IF  (ITYPE.EQ.O)  WRITE  (6,930) 

00002010 

I F ( (TYPE  .EQ  .1  ) WRITE  (6,990  ) 

00002020 

00  190  J»1,K1 

00002030 

DO  180  K>1  ,K2 

00002090 

DO  170  L1»1,K3 

00002050 

READ  990.  (BLEVEL (H) ,H>1 ,3 ) .BIO 

00002060 

WRITE  (6,960  ) I , (BLEVEL (H  ) ,H>1 , 3) .BID 

00002070 

00  no  L«1  .NLEVl 

00002080 

IF  (BLEVEL (1 ) .EQ.SURPl  (L ) ) CO  TO  1^0  ^ 

00002090 

no 

CONT  INUE 

00002100 

WRITE  (6,950) 

00002110 

STOP 

00002120 

; , Figure  5-4.  Program  3 Listing,  MAIN  Routine  (4  of  7) 
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1?0 

130 


UO 

150 


160 

170 

180 

190 

800 

c 

c 

c 


810 

C 

C 

c 


820 

830 

C 

C 

C 


C 

C 

C 


890 

C 

C 

C 


00  1 30  LL«l,f.LEV8 

IF  ( BLEVEL (8  I .E0.SURP8 (LL I)  00  TO  UO 

CONTINUE 

lollTE  16,9601 

STOP 

DO  1 50  LLL  *1  ,NLEV3 

IF  ( eCEVEL ( 3 ) .EQ.SURP3(LLL ) I GO  TO  160 

CONTINUE 

.RITE  16,970) 

STOP 

COST!  I,L,LL,LLLI>BiO 

CONTINUE 

CONTINUE 

CONT I NUE 

CONTINUE 

7 SET  UP  TO  PROCESS  ALL  BID  LEVELS. 

DO  810  I >1 ,NSUP 
LEVI  I 1 )«NLEV1 
LEV8(  1 )«NLEV8 
LEV3I  n»NLEV3 
CONTINUE 

8 PRINT  ALL  BIO  LEVELS  IF  DESIRED. 

IF  (NTEST  .NE  .1  I 00  TO  830 
DO  880  I>1,NSUP 
-RITE  (6,5701  1 
00  880  J*1 ,NLEV1 
00  220  K»1  ,NLEV8 
DO  280  L*1  ,NLEV3 

-RITE  (6,580)  PLE VI ( I , J I ,PLEV2 ( I ,K 1 ,PLEV3 ( 1 ,L ) ,COST( I , J ,K,L I 

CONTINUE 

CONTINUE 

V FIND  AND  PRINT  LEAST-COST  SOLUTIONS. 

-KITE  (6,5201 
call  OYNPRO 
1TEST.ITES8 

10  SAVE  LEAST-COST  SOLUTIONS  FOR  USE  IN  FINDING  NEXT-BEST  ONES 

t>0  290  I >1  ,NSUP 
FINXI  (I  l-XFINl  (I  I 
F INX8 ( I l-XF IN2 ( 1 > 

F INXi( I )>XF |N3( I I 

11  FIND  and  print  next-best  SOLUTIONS. 

DO  310  I «1  ,NSUP 
PRINT  530.  I 


00002130 

00008190 

00008150 

00008160 

00002170 

00008180 

00008190 

00002800 

00008810 

00008820 

00008830 

00002890 

00008850 

00008860 

00008870 

00008880 

00008890 

00008300 

00002310 

00008380 

00008330 

00002390 

00002350 

00002360 

00002370 

00008380 

00008390 

00008900 

00002910 

00008980 

00008930 

00008990 

00008950 

00008960 

00008970 

00002980 

00008990 

00002500 

00008510 

00008520 

00008530 

00008590 

00002550 

00008560 

00008570 

00002580 

00002590 

00002600 

00002610 

00008620 

00008630 

00002690 

00002650 


Figure  5-4.  Program  3 Listing,  MAIN  Routine  (5  of  7) 
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c 

c 

c 

c 


250 


260 

270 


280 

290 


C 

C 

C 

C 

300 


310 

C 

320 

330 

3<i0 

350 

360 

370 

380 

390 

600 

610 

620 

630 

660 

650 

660 

670 

680 

690 

500 

510 


11.1  FOR  BIDDER  I FIND  BID  LEVELS  J,K,AND  L OF  LEAST-COST 
SOLUTION. 

K1*LEV1 ( I I 
K2-LEV2 I n 
63«LEV3( I ) 

DO  250  J*1  ,K1 

IF  (PLEVl I I ,J)-FINX1 ( I ) ) 250  ,260,250 
CONTINUE 

PRINT  560,  F INXl ( I I ,I 
STOP  110 
DO  270  K.l  ,K2 

IF  (PLEV2 ( I ,K  l-F  INX2(  I I I 270,280,270 
CONTINUE 

PRINT  550,  FINX2(I  ),l 
STOP  120 
DO  290  L-1,K3 

IF  |PLEV3( I ,L  )-F INX3  1 1 n 290,300,290 
CONTINUE 

PRINT  560,  FINX3II  1,1 
STOP  130 

11.2  RULE  OUT  THE  LEAST-CCST  PRODUCTION  LEVEL  J,K,L  AND  FIND  THE 
LEAST-COST  OF  THE  REMAINING  POSSIBILITIES. 

SAVE  «CO$T (I , J,K,L  ) 

COST!  1,J,K,LI. DUMMY 
CALL  OYNPRO 

IF  (ITES2.NE.0)  nRITE  (6,5901 

COST ( I , J,K  ,L  l-SAVE 

STOP 

FORMAT  I5A6) 

FORMAT  (1H1,5A6I 

format  llH0,12.Bh  BIODERSI 

format  (1H  ,12,2bH  bio  LEVELS  FOR  FIRST  PERlOOl 

format  (1H  ,I2,29M  bio  levels  FOR  SECOND  PERIOOl 

FORMAT  (IH  ,12,26H  BID  LEVELS  FDR  THIRD  PERIOD) 

format  (lH0,12,2bM  BIO  LEVELS  FOR  FIRST  ITEM) 

FORMAT  (IH  ,I2,27H  910  LEVELS  FOR  SECOND  ITEM) 

FORMAT  (IH  ,I2,2tH  BIO  LEVELS  FOR  THIRD  ITEM) 

FORMAT  IFIO.O) 

FORMAT  (5H1BIDSI 

format  (lM0,nx,60M  PERIOD  1 PERIOD  2 PERIOD  3 TOTAL  COST) 
FORM,.!  nM0,llX,6OH  ITEM  1 ITEM  2 ITEM  3 TOTAL  COST) 
FORMAT  I1H0.26MF IRST  BIO  LEVEL  IS  ILLEGAL) 

FORMAT  (1H0,27mSEC0N0  BIO  LEVEL  IS  ILLEGAL) 

FORMAT  ( 1h0,26hThIR0  BID  LEVEL  IS  ILLEGAL) 

FORMAT  (lH0,bHBIDDER,13,6Fl0.0) 

FORMAT  (6F10.0) 
format  (1013) 
format  (313) 


00002660 
00002670 
00002680 
00002690 
00002  700 
00002710 
C0002720 
00002730 
C00C2760 
00002750 
00002  760 
00002  770 
00002780 
00002790 
00002800 
00002610 
00002820 
00002630 
00002660 
00002650 
00002860 
00002870 
00002880 
00002890 
00002900 
00002910 
00002920 
00002930 
00002960 
00002950 
00002960 
00002970 
00002980 
00002990 
00003000 
00003010 
00003020 
00003030 
00003060 
00003050 
00003060 
00003070 
00003080 
00003090 
00003100 
00003110 
00003120 
00003130 
00003160 
00003150 
00003160 
00003170 
0C0031B0 


Figure  5-4.  Progr2..i  3 Listing,  MAIN  Routine  (6  of  7) 
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520 

FORMAT 

( IHl 

,20X, 

17H0PTIMAL  SOLUTIONS) 

00003190 

530 

format 

( mi 

.20X, 

1 IhSUPGPT 

S0LN,I5//I 

00003200 

5A0 

format 

(IX, 

bhB  I 0 

rF,E10.3 

,2AH»AS  NOT 

FOUND 

FOR 

BIDDER .1 5 ,6H 

PER 

1)00003210 

550 

format 

(IX, 

6HS  1 0 

OF, £10.3 

,2AMhAS  NOT 

FOUNO 

FOR 

B(D0ER,I5,6H 

PER 

2100003220 

5bO 

format 

(IX, 

6HB  10 

OF ,E10.3 

,2AHnAS  NOT 

FOUND 

FOR 

BIDDER  , I 5 ,&H 

PER 

3)00003230 

570 

FORMAT 

( mi 

. 12  1 

0000 32 AO 

58U 

FORMAT 

(IHC 

,3F6  . 

G,F10.0) 

00003250 

590 

FORMAT 

(IHO 

,111, 

AIM 

THE  .’NLY  TRULY  SUBOPTIMAL  SOLUTION 

,29HIS00003260 

1 the  loox 

lUOX 

100-<  ONE 

-,/,39H  THE 

REST 

MAY 

OR  MAY  NOT  BE 

SUBOP00003270 

2TIMAL  ,3<.HAN0  ARf  PRINTeO  AS  DEBUGGING  AIDS.)  00003280 

END  00003290 


Figure  5-4.  Program  3 Listing,  MAIN  Routine  (7  of  7) 
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t 

Subroutine  dynprc 

00003300 

COMMON  PLE’Vl(10,t),PLFV2(10,6),PLEV3(10,6) 

00003310 

COMMON  XflNl(10l,)(FlN2(10),XFIN3(10),SURPl(6l,SURP2(t),SURP3(6l 

00003320 

COMMON  LEVl(IC),LEV2(10l,LfV3(I0),COST(10,6,6,6) .DUMMY 

00003330 

COMMON  N SUP,  NLEV  1, NLEV2,t4LEV3,I  TYPE, NTEST.I  TEST 

000033A0 

DIMENSION  DELTl(lO),  DELliUO),  DELT3(10I 

00003350 

DIMENSION  Fll0,b,b,6).  X 1 ( I 0 , b , b , b ) , X2 ( 1 0 , 6 . 6 , 6 I , 

X3(10.6,6,bl 

00003360  • 

DIMENSION  XX1(50),  XX2(50I,  XX3(50) 

00003370 

c 

00003380 

c 

12  TRANSFER  DATA  TO  COMPUTATIONAL  ARRAYS. 

00003390 

c 

C0OO3MOO 

DO  10  1*1, 10 

00003‘ .0 

00  10  J«l,6 

00003M20 

DO  10  K*l,6 

C0003M30 

DO  10  L«l,b 

00003AM0 

F ( 1 , J ,K,L I ‘DUMMY 

00003M50 

10 

CONTINUE 

00003M60 

I«1 

00003M70 

K1  .LEVI  ( I 1 

00003M80 

. K2.LEV2(n 

00003M90 

K3.LEV3(  1 I 

00003500 

DO  70  J.l.Kl 

00003510 

DO  bO  K>1  ,K2 

00003520 

DO  50  L.1,K3 

00003530 

F(  I, J,K,LI >CCST(I ,J,K,L I 

000035MO 

XI ( I , J,K  ,L  1 .PLEVl ( 1 , J) 

00003550 

X2 1 I . J,K,L  I.PLE V2  11  ,K  I 

00003560 

X3n  , J ,K  ,L  I ■PLEV3(  I ,L  1 

00003570 

MCON*! 

00003580 

XXI ( MCONI.PIEVI  ( I ,J) 

00003590 

XX2 (MCON  I.PLE V2( I ,K I 

00003600 

XX3( HCONl .PLE V3( I ,L 1 

C0003610 

IF  (NTEST)  20,50,20 

00003620 

20 

WRITE  16,530)  I , J . K , L . F 1 1 , J , K , L 1 

00003630 

IF  II  TYPE  .EQ.l 1 CO  TO  30 

000036MO 

.RITE  (b.5A0)  XXIIMCQN) 

00003650 

WRITE  lb, 5601  XX2IMCUNI 

00003660 

WRITE  (6,550)  XX3(MC0NI 

00003670 

00  TO  MO 

00003680 

30 

WRITE  (6,570)  XXIIMCQN) 

00003690 

WRITE  16,560)  XX2(MCQN) 

00003700 

WRITE  16,590)  XX3IMC0N) 

00003710 

<>0 

CONTINUE 

00003720 

50 

CONTINUE 

00003730 

60 

CONTINUE 

00003760 

70 

CONTIFUE 

00003750 

C 

00003760 

C 

13  FIND  LEAST-COST  SOLUTIONS  BY  CONSIDERING  ADDITIONAL  BIDDERS 

00003770 

C 

ONE  AT  A TIME. 

00003780 

C 

00003790 

DO  350  I.2,NSUP 

00003800 

IF  (l-NSUP)  100,60,80 

00003810 

• 

80 

IF  I1TE5T)  100,90,100 

00003820 

• 

Figure  5-5.  Program  3 Listing,  DYNPRO  Subroutine 

(1  Of  5) 
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— : — — - ^ 

90 

LC'NtEVl 

00003830 

LLC-NLEV2  . 

00003840 

LL.C'NLEVB 

00003850 

OU  10  110 

00003860 

100 

LC*1 

00003870 

LLC»1 

00003880 

LLLC'l 

00003890 

c 

00003900 

c 

13.1  SEARCH  FDR  LEAST  COSTS  FUR  EACH  DESIRED  SET  OF 

BIO  LEVELS. 

00003910 

c 

00003920 

110 

00  340  LS*LC,NLEV1 

00003930 

DO  330  LL$*LLC  ,NLEV2 

00003940 

DO  320  LLLS«LLLC  .NLEV3 

00003950 

Kl.LEVl ( I 1 

00003960 

»C0N«1 

00003970 

M-l 

00003980 

HH>1 

00003990 

MMM«1 

00004000 

R-IOOOOO •DUMMY 

00004010 

c 

00004020 

c 

13.11  determine  requirement  FDR  PRECEDING 

BIDDERS  TO  MEET. 

00004030 

c 

00004040 

DO  250  J«1,K1 

00004050 

OIFl  -SURPI  <L  S )-PLEvm  ,J) 

00004060 

IF  (DIFll  260.120,120 

00004070 

wo 

K2*LEV2 ( 1 ) 

00004080 

DO  240  K>1 ,K2 

00004090 

UIF2*SURP2 (LLS  l-PLE V2« I ,K  ) 

00004100 

IF  /0JF2)  250,130,130 

00004110 

130 

K3.LEV3 11) 

00004120 

DO  230  L«1 ,K3 

00004130 

0IF3*SURP3(LLLS)-PLEV3<I,L» 

00004140 

IF  (0IF3)  240,140,140 

00004150 

c 

00004160 

c 

13.12  FIND  BIO  LEVELS  WHICH  MEET  THAT  REQUIREMENT. 

000041 70 

c 

00004180 

140 

00  150  1J«1,NLEV1 

00004190 

IF  (DIFl-SURPl ( IJ) ) 160,160,150 

00004200 

150 

CONTINUE 

00004210 

160 

DO  170  1JJ«1,NLEV2 

00004220 

IF  <01F2-SURP2(lJJ>>  180, IBO, 170 

00004230 

170 

CONTINUE 

00004240 

IBO 

DO  190  IJJJ«1,NLEV3 

00004250 

IF  )DIF3-SURP3(1 JJJ)  ) 200,200,190 

00004260 

190 

CONTINUE 

00004270 

C 

00004280 

C 

13.13  COMPUTE  TOTAL  COST  FOR  COMBINATION. 

00004290 

C 

00004300 

200 

FF>CaST< 1 , J,K,L)*F(I-1,IJ,1JJ,IJJJ) 

00004310 

C 

00004320 

c 

13.14  compare  total  COST  FOR  THIS  COMBINATION  WITH 

THE  total 

00004330 

c 

COST  OF  the  previously  BEST  COMBINATION. 

KEEP  THE 

BETTER  ONE. 

00004340 

c 

00004350 

Figure  5-5.  Program  3 Listing,  DYNPRO  Subroutine  (2  of  5) 
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IF  (R-FFI  230,210,220 

000063  0 

?10 

XXI (MCON  ) -PLEVl ( I ,J) 

000063/0 

XX2(MCCjN).PLEV2(  I ,R) 

00006380 

XX3(MC0N).PLEV3( I ,L  1 

00006390 

HCON.MCON*! 

00006600 

GO  TO  230 

00006610 

M*J*1 

00006620 

MH*K*1 

00006630 

•1MM  •L*l 

00006660 

^^CQN•1 

00006650 

R»FF 

00006660 

GO  TO  210 

00006670 

230 

CONTINUE 

00006680 

2^0 

CONTINUE 

00006690 

250 

CONTINUE 

00006500 

C 

00006510 

c 

13.2  SAVE  BEST  VALUE. 

00006520 

c 

00006530 

260 

F (I ,LS.LLS,LLLSI>R 

00006560 

Xllt,lS,LLS,LLLS)>PLEVllI,H-l) 

00006550 

X2(I,LS,LLS,LLLS)*PLEV2(I,HM-1I 

00006560 

• 

X3II,LS,LL$,LLLSI«PLEV3(I  ,MHM-1  ) 

00006570 

c 

00006580 

c 

13.3  IF  TESTING,  WRITE  THE  BIDDER, 

THE  BIO  LEVELS,  AND  THE  LEAST 

00006590 

c 

COST  FDR  BIDDERS  1 THRU  I AT  THESE 

LEVELS. 

00006600 

c 

00006610 

IF  (NTEST)  270,310,270 

00006620 

270 

kRITE  (6,530  ) I ,LS,LLS,LLLS,F  1 1 ,LS  , 

LLS.LLLS) 

00006630 

MCUN*MC0N-1 

00006660 

00  300  IC0N.1,MCUN 

00006650 

IF  ( ITYPE.EO.I  ) GO  TO  280 

00006660 

WRITE  (6,560)  XXKHCON) 

00006670 

WRITE  (6,560)  XX2(HC0NI 

00006680 

WRITE  (6,550)  XX3(HCQNI 

00006690 

GO  TO  290 

00006700 

28G 

WRITE  (6,570  ) XXKMCONI 

00006710 

►RITE  (6,580)  XX2(MC0N) 

00006720 

WRITE  (6,590)  XX3(HCaN) 

00006730 

290 

CONTINUE 

00006760 

300 

CONTINUE 

00006750 

310 

CONTINUE 

00006760 

320 

CONTINUE 

00006770 

330 

CONTINUE 

00006780 

360 

CONTINUE 

00006790 

350 

CONT INUE 

00006800 

C 

00006810 

c 

16  HORK  BACKWARDS  TO  ASSEMBLE  AND 

PRINT  FINAL  SOLUTIONS. 

00006820 

c 

00006830 

Kiwi 

00006860 

K2wl 

00006850 

K3wl 

00006860 

IF  (ITESTI  370,360,370 

00006870 

360 

Kl wNLEVI 

00006880 

Figure  5-5.  Program  3 Listing,  DYNPRO  Subroutine  (3  of  5) 
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370 


C 

C 


380 

C 

C 

C 


C 

c 

c 

c 


390 

‘.00 

<•10 

‘.20 

‘.30 

c 

c 

c 

<•<.0 


c 

c 

c 

‘.50 

<.60 


<.70 


K2-NLEV2 

K3*NLEV3 

O;  520  LLL-Kl  .NLtVl 
DU  510  LLLL*K2,NL£V2 
DO  500  LLLLL*K3,NLEV3 

l‘.,l  ASSEMBLE  iHt  SOLUTIONS. 

I -NSUP 

DELTl  ( I I.SURPl (LLL  I 
DELT2 ( I I •SURP2  ILLLL  ) 

CELT3(  I )*SURP3(LLLLL  I 
XPIN1(1)*X1(1,LLL,LLLL,LLLLL) 

XFIN2(I)-X2(I,LLL,LLLL,LLLLL) 

XfIN3(II«X3(I,LLL,LLLL,LLLLL» 

1*1-1 

l‘..ll  COMPUTE  BALANCES  REMAINING  TO  BE  MET. 

OELTl(n*OELTl(I«l)-XFlNl(l*ll 

0ELT2(II*D£LT2(l*l)-XFIN2(I*n 

DELTj(l)*0ELT3(I*l)-XFIN3(l*l) 

U.U  FOR  THOSE  balances  FIND  BIDDER  I'S  BID  LEVELS  IN  THE 
least-cost  solution. 

DO  390  LS.l ,NLE VI 

IF  (OELIK  n-SURPKLSI  ) <.00  ,<.00  ,390 
CONTINUE 

DO  <.10  LLS*1  ,NLEV2 

IF  (0ELT2I  I l-SURP2(LLSI  ) <.  1 0 , <. 20 , <.  1 0 
CONTINUE 

DO  <.30  LLLS»1  ,NLE  V3 

IF  (DELT3(  n-SURF3(LLLS)  ) <.30  ,<.<.0 ,930 
CONTINUE 

i<..i3  SAVE  Those  bio  levels. 

XFINl  (n*Xl  (1  ,LS,LLS  ,LLLS  ) 

XFIN2  ( n*X2(  I ,LS,LLS,LLLS  I 
XFIN3(I  ,LS,LLS,LLLS> 

1<..2  WHEN  DONE,  WRITE  ANSWERS. 

IF  (I-l)  <.50, <.50, 380 

IF  (FINSUP.LLL  ,LLLL,LLLLL 1-OUMMYl  970  ,<.60  ,960 
WRITE  16,650)  SUkPl (LLL I , SURP2(LLLL 1 ,SURP3 ILLLLL) 

••RITE  16,690) 

CO  TO  990 


00009890 

00009900 

00009910 

00009920 

00009930 

00009990 

00009950 

00009960 

00009970 

00009980 

00009990 

00005000 

00005010 

00005020 

O0CO5O30 

00005090 

00005050 

00005060 

00005070 

00005080 

C0005090 

00005100 

00005110 

00005120 

00005130 

00005190 

00005150 

00005160 

00005170 

00005180 

00005190 

00005200 

00005210 

00005220 

00005230 

00005290 

00005250 

00005260 

00005270 

00005280 

00005290 

00005300 

00005310 

00005320 

00005330 

00005390 

00005350 

00005360 

00005370 


WRITE  (6,600 ) SURPl (LLL I , SURP2 ( L L L L ) , SURP 3 ( LL LLL ) ,F (N SUP  , LLL ,LLLL ,00005380 


ILLLLL) 


00005390 


IF  (ITYPE.EQ.O)  WRITE  (6,610)  00005900 

IF  (ITYPE.E0.1I  WRITE  (6,6201  00005910 


Figure  5-5.  Program  3 Listing,  OYNPRO  Subroutine  (4  of  5) 
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OO  <>60 

1 •!  .NSUP 

00005<>20 

<>80 

WRITE 

(6,630)  I ,XFIN1  in,XFIN^  1 1 ) ,XFIN3in 

00005N30 

<>90 

CONTINUE 

00005<><>0 

500 

CONTINUE 

00005950 

510 

CONTINUE 

00005960 

5^0 

CONTINUE 

00005970 

RETURN 

00005980 

C 

00005990 

530 

FORMAT 

(1H0,<>I3,F10.0I 

00005500 

5<>0 

format 

( 1MO,9HPERIOO  1 

, FIO. 01 

00005510 

550 

format 

(IH  ,9MPEHCD  3 

,F10.0  ) 

00005520 

560 

format 

(IH  ,9MPERIDD  2 

,FI0.0l 

00005530 

570 

FORMAT 

(1H0,9HPEHIC0  1 

,F10.0  ) 

00005590 

580 

format 

(IH  ,9MPEM0D  2 

,FI0.0) 

00005550 

590 

format 

(IH  ,9HPEFI00  3 

,F 10. 0) 

00005560 

600 

format 

(1H0,19H  REQUIREMENT  L £ VE L 1 , F 1 0 .0 , 1 9H 

REQUIREMENT 

LEVEL2,F100005570 

10.0,19H  REQUIREMENT  L E VEL  3 . F 1 0 .0 , 1 <>H  MINIMUM 

COST  .FIO.O) 

00005580 

610 

format 

(iH  ,1<>X,10H  PERIOD  1 ,10X,10H  PERIOD 

2 

,I0X,10H  PERIOD  3 100005590 

biO 

format 

(IH  ,1<>X,10H  ITEM  1 ,10X,10H  ITEM 

2 

,10X  ,10H 

ITEM  3 100005600 

630 

■ format 

(IH  ,6HBIC;0ER,I3 

,2X,FIO.O,10X,F10.0,IOX 

,F10.0I 

00005610 

6<>0 

format 

(IH  ,21H  NO  FEASIBLE  SOLUTION) 

00005620 

650 

format 

(1H0,19H  REQUIREMENT  LEVELl  ,F10  .0 , I9H 

REQUIREMENT 

LEVEL2 ,F100005630 

10.0, 19m  REOUlREMtNT  L EV  EL  3 , FIO  .0  ) 000056<.0 

END  0000S6S0 


Figure  5-5.  Program  3 Listing,  DYNPRO  Subroutine  (5  of  5) 
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PROGRAM  <1 

fcHTENOED  multiple  BIO  EVALUATION  - PROVIDES  LEAST-COSI  AND 
SECOND-BEST  SOLUTIONS  AT  EACH  POSSIBLE  610  LEVEL  FOR  EACH 
POSSIBLE  NUMBER  Of  SUPPLIERS. 

1 lOENI IF ICATICN  OF  VARIABLES. 

BID  - BIO  COST. 

BLEVEL  - BID  LEVEL. 

COSTtl.L)  - The  array  OF  BIO  COSTS  FOR  EACH  BIDDER  I AND  BIO 
LEVEL  L. 

CDSTB  - THE  CURRENT  SECOND-BEST  COST. 

OELTllI  - AMCUM  OF  RECUIREMENT  MET  BY  BIDDERS  1 THRU  I. 

DELTB  - TEMPORARY  CURRENT  SECOND-BEST  COST. 

OIFF  - BID  LEVEL  DESIRED  FOR  PRECEDING  BIDDERS.  NHEN  ADDED  TO 
CURRENT  BIDDER'S  LEVEL  K GIVES  TOTAL  BIO  LEVEL  L. 
dummy  - A high  value  used  to  initialize  the  COST  ARRAY  FOR  EASE 

OF  handling  bids  not  made. 

FIll.L.JJ)  - LEAST  COST  FOR  BIDDERS  1 THRU  I AT  LEVEL  L WITH 
JJ-1  SUPPLIERS. 

FZII,L,JJ)  - SEIONO-BESI  COST  FOR  BIDDERS  1 THRU  I AT  LEVEL  L 
with  JJ-l  SUPPLIERS. 

FF  - COST  OF  meeting  DESIRED  REQUIREMENT  LEVEL  L USING  CURRENT 
BIDDER  AT  LEVEL  K,  PREVIOUS  BIDDERS  AT  COMBINED  LEVEL  J. 

and  ksup-1  bidders. 

GIKSUP.k.J)  - COMPUTATIONAL  ARRAY  HOLDING  COSTS  FOR  BIDDER 

1 Thru  I TU  MEET  BID  LEVEL  L WITH  BIDDER  1 AT  LEVEL  K AND 
WITH  WSUP  BIDDERS  IN  TOTAL.  FOR  J'l.  COST  IS  PUTENTIALLY 
EITHER  LEAST  OR  NETT-LEAST  COST.  FOR  J.2,  COST  IS 

potentially  only  second-best  cost. 

IT  - T ITLE  element  INDEX. 

ITEST  - «I  FOR  PRINTING  SOLUTIONS  FOR  SUBMAXIMAL  PRODUCTION 
LEVELS. 

•0  FCR  printing  maximal  PRODUCTION  LEVEL  SOLUTIONS  ONLY. 
J - INDEX  OF  LEVEL  CF  DESIRED  CUNTRIBUTIDN  BY  THIS  BIDDER. 

JA6LE  - INDEX  FUR  ThIRO  SUBSCRIPT  Of  G ARRAY. 

JCOD  - INDEX  FDR  TmE  NUMBER  OF  SUPPLIERS.  THE  TRUE  NUMBER  OF 
SUPPLIERS  IS  I LESS  THAN  JCOD,  AS  JCOD*!  CORRESPONDS 
TO  C BIDDERS. 

JCON  - SUPPLIER  LEVEL. 

JJ  - SUPPLIER  LEVEL  SUBSCRIPT. 

JJCC  - supplier  LEVEL  SUBSCRIPT. 

JJJJ  - number  Of  SUPPLIERS. 

JK  - number  OE  suppliers  INCREMENTER. 
jTON  - number  of  suppliers. 

K - BID  LEVEL  INDEX. 

K1  - BID  LEVEL  LF  LEAST-COST  SOLUTION. 

K2  - BID  LEVEL  OF  SECOND-BEST  SOLUTION. 

KCON  - maximum  number  OF  BIO  LEVELS  TO  CONSIDER. 

KSUP  - SUPPLIER  LEVEL. 

L - BIO  LEVEL  INDEX. 


00000010 

00000020 

00000030 

00000040 

ooooooso 

00000070 

00000075 

00000080 

00000090 

00000100 

ooooono 

00000120 

00000130 

00000140 

00000150 

00000160 

00000170 

00000180 

00000190 

00000200 

00000210 

00000220 

00000230 

00000240 

00000250 

00000260 

00000270 

00000280 

00000290 

00000300 

00000310 

00000320 

00000330 

00000340 

00000350 

00000360 

00000370 

00000380 

00000390 

00000400 

00000410 

00000420 

00000430 

00000440 

00000450 

00000460 

00000470 

00000480 

00000490 

00000500 

00000510 
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LEV  - 
LL  - 
LLC  - 


MXBD 

NLEV 

NSUP 

PLEV 

SURP 

TITLE 

XI  ( t , 


LOWEST  BID  LEVEL  TO  CONSIDER  FOR  SUSMAXIHAL  LEVEL 
SOLUTIONS.  ECUALS  NLEV  IF  SUBHAXIMAL  SOLUTIONS  ARE  NOT  TU 
BE  CONSIDERED. 

NUMBER  OF  BIDS  WHICH  BIDDER  IS  MAKING. 

BID  LEVEL  INDEX. 

LOWEST  eiL  LEVEL  TC  CONSIDER  FOR  SUBMAXIMAL  SOLUTIONS. 
equals  NLEV  IF  SUBMAXIMAL  SOLUTIONS  ARE  NOT  TO  BE 
CONSIDERED. 

- REQUIREMENT  LEVEL  INDEX. 

- BID  LEVEL  LAST  MET. 

MAXIMUM  NUMBER  OF  SUPPLIER  LEVELS  IN  SOLUTION. 
equals  MXEID*!  because  IT  INCLUDES  THE  ZE RO -SUPP L I ER 
SOLUTION. 

- MAXIMUM  POSSIBLE  NUMBER  OF  SUPPLIERS  IN  A SOLUTION. 

- NUMBER  OF  BIO  LEVELS. 

- NUMBER  OF  SUPPLIERS. 

- THE  BID  LEVELS. 

- THE  BID  LEVELS. 

- TITLE  OF  STUDY. 

L,JJI  - BID  LEVEL  OF  BIDDER  I'S  CONTRIBUTION  TO  THE 
LEAST-COST  SOLUTION  AT  LEVEL  L FDR  BIDDERS  1 THRU  I WITH 
JJ-1  SUPPLIERS. 

L,JJ1  - BID  LEVEL  OF  BIDDER  I'S  CONTRIBUTION  TO  THE 
LEAST-COST  SOLUTION  AT  LEVEL  L FOR  BIDDERS  1 THRU  I WITH 
JJ-1  SUPPLIERS. 

(1)  - BID  LEVEL  OF  BIDDER  I'S  CONTRIBUTION  TO  THE  LEAST-COST 
SOLUTION. 

ID  - blD  LEVEL  OF  BIDDER  I'S  CONTRIBUTION  TO  THE 
SECOND-BEST  SOLUTION. 


2 DIMENSION  AND  DOUBLE  PRECISION  STATEMENTS. 

dimension  Flll0,21,2n.  F2(l0.21.2n.  Xl(t0.21,2n.  X2llO,21.2n 

DIMENSION  SURP(21I,  PLEV(21I,  C0STI10,2n 

DIMENSION  XFINlllOI.  XFIN2(10)i  C(21i21i2)i  DELTdOl,  TITLEISI 
DQUnLE  PRECISION  C , F F , F 1 , F2  , X 1 ,X2  , B I D , COST .DEL T , D I FF 
DOUBLE  PRECISION  PLEV, SURP, COSTS, DELTA, DELTB, DUMMY 
DOUBLE  PRECISION  X F I N 1 ,X F 1 N2 , 6L E VEL 

3 READ  title,  basic  PARAMETERS,  AND  BIO  LEVELS. 

read  15,920)  ITITIEIITI,1T«I,5I 
WRITE  (6,9301  ITITLEIIT)  ,1T>1  ,5) 

READ  (5,10001  NSUP, NLEV, (TEST 

WRITE  lb,9<>0l  NSUP, NLEV 

WRITi  (6,9501 

IF  (NSUP-NLEV)  20,10,10 

MXBD>NLEV-1 

GO  TO  30 

MXBO-NSUP 

00  40  L-1  ,NLEV 

READ  980,  SURPIL) 


00000’  '0 
00000530 
00000540 
00000550 
00000560 
00000570 
00000580 
00000590 
00000600 
00000610 
00000620 
00000630 
00000640 
00000650 
00000660 
00000670 
00000680 
00000690 
00000700 
00000710 
00000720 
00000730 
00000740 
00000750 
00000760 
00000770 
00000780 
00000790 
00000800 
00000810 
00000820 
00000830 
00000835 
00000840 
00000850 
00000860 
00000870 
00000880 
00000890 
00000900 
00000910 
00000920 
00000930 
00000940 
00000950 
00000960 
00000970 
00000980 
00000990 
00001000 
00001010 
00001020 
00001030 


Figure  5-6.  Program  4 Listing  (2  of  8) 


52 


c 

c 

c 

c 


50 

60 

70 

C 

c 

c 


60 

C 

c 

c 


c 

c 

c 


90 


100 

no 

c 

c 

c 

c 

120 


130 

190 

150 


00001090 

9 INITIALIZE  BIO  LEVELS,  BIDS,  AND  ARRAYS 

OF 

LEAST-COST  AND 

00001050 

S'CCNO-BEST  BIOS. 

00001060 

00001070 

mhm*hxbo»1 

00001080 

0UMMY«1 .E«l 5 

00001090 

00  70  L»1 ,NLEV 

00001100 

PL  EV (L  ) •SURP IL  ) 

00001110 

DO  60  1*1 ,NSUP 

00001120 

COST ( 1 ,L ) «DUHMY 

00001130 

00  50  JC0N»1  ,MMM 

00001190 

FI ( 1 ,L, JCCN)»DUFMY 

00001150 

F2 ( 1 ,L , JCON  ) ‘DUMMY 

00001160 

CONTINUE 

00001170 

CONTINUE 

00001180 

CONTINUE 

00001190 

00001200 

5 READ  AND  PROCESS  BIOS  FOR  EACH  BIDDER. 

00001210 

00001220 

1»0 

00001230 

LC«1 

00001290 

l>l«l 

00001250 

00001260 

5.1  THERE  ARE  SEVERAL  "CO  TO  80"  STATEMENTS 

IN 

THE  PROGRAM 

00001270 

00001280 
00001290 
00001300 
00001310 
00001320 
00001330 
00001390 
00001350 
00001360 
00001370 
00001380 
00001390 
00001900 
00001910 
00001920 
00001930 
00001990 
00001950 
00001960 

5.3  FOR  TMf  FIRST  BIDDER,  PUT  BIOS  AND  BID  COSTS  DIRECTLY  INTO  00001970 


the  BIO  ARRAYS.  000019B0 

00001990 

DO  ISO  L*1,NLEV  00001500 

DO  130  K>1,NLEV  00001510 

IF  ISURPILI-PLEVIKI ) 130,190,130  00001520 

CONTINUE  00001530 

IF  (L-lt  160,150,160  00001590 

JJ>1  00001550 

CO  TO  170  00001560 


HRITE  (6,960)  1 
MRITE  16,970) 

READ  1000,  LEV 

5.2  READ  BIO  LEVELS  AND  BIO  COSTS. 

DO  110  »(»1  ,LE  V 
READ  980,  BLEVEL.BIO 
PRINT  980,  bLEVEL,B10 
DO  90  L*1 ,NLEV 

IF  IBLEVEL  .EO.SURPIL I I GO  TO  100 
CONTINUE 

WRITE  (6,990)  1,6LEVEL 
STOP 

C0ST(1,L)*BI0 

CONTINUE 

IF  II-l)  120,120,190 


Figure  5-6.  Program  4 Listing  (3  of  8) 
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160 

170 

180 

C 

c 

c 

c 

c 

190 

c 

c 

c 


c 

c 

c 

200 

210 

C 

C 

C 

c 

220 


230 

290 

250 

260 

270 

280 

C 

c 

c 


290 

300 

310 

320 

330 

390 

350 


JJ«2 

F1(I.L.JJ)<C0$T(I,K) 

XI  ( t .L,  JJ  )>FLEV  IK  I 

CONTINUE 

GO  TO  80 

5.9  FOR  SUESEQLENT  BIDDERS,  FIRST  FILL  UP  THE  G ARRAY  WITH  THE 

COSTS  FOR  potentially  least-cost  or  second-best  intermediate 

SOLUTIONS. 

DO  970  L-LC  ,NLEV 
DO  350  K«1 ,NLEV 

5.91  COMPUTE  BIO  LEVEL  DESIRED  FOR  PREVIOUS  BIDDERS. 

DIFF.SURPILl-PLEVIKI 
IF  (DIFFI  3t0,200,200 

5.92  FIND  the  index  OF  THAT  BID  LEVEL. 

DO  210  J«1  ,NLEV 

IF  (DIFF-SUkPlJll  220,220,210 

CONTINUE 

5.93  COMPUTE  COSTS  OF  SOLUTIONS  WHICH  COULD  BE  EITHER  LEAST-COST 
OR  SECOND-BEST. 

DO  280  JC0N*1,HMH 
FF.C0ST(I,KI*F1(I-1,J,JC0NI 
IF  (K-l)  290,230,290 
JK.O 

GO  TO  250 
JK>1 

KSUP*JK*JCON 

IF  (KSUP-MMMl  270,270,260 
KSUP«1 

C(KSUP,K,1 )>FF 
CONTINUE 

5.99  COMPUTE  COSTS  OF  SOLUTIONS  WHICH  COULD  BE  SECOND-BEST. 

DO  390  JC0N«1,MMH 
FF>COST| I ,K )«F2 I I-l , J, JCONI 
IF  <K-1)  300,290,300 
JR«0 

GO  TO  310 
JK>1 

KSUP*JK«JCDN 

IF  IKSUP-MMM)  330,330,320 
KSUP«1 

G<KSUP,K,2>>FF 

CONTINUE 

CONTINUE 


0000' 570 
00001580 
00001590 
00001600 
00001610 
00001620 
00001630 
00001690 
00001695 
00001650 
00001660 
00001670 
00001680 
00001690 
00001700 
00001710 
00001720 
00001730 
00001790 
00001750 
00001760 
00001770 
00001780 
00001785 
00001790 
00001 800 
00001820 
00001830 
00001890 
00001850 
00001860 
00001870 
00001880 
00001890 
00001900 
00001910 
00001920 
00001930 
00001990 
00001950 
00001960 
00001970 
00001980 
00001990 
00002000 
00002010 
00002020 
00002030 
00002090 
00002050 
00002060 
00002070 
00002080 


Figure  5-6.  Program  4 Listing  (4  of  8) 
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K.NLeV«l 
360  K.K-1 

C 

C 5.5  KEEP  TRACK  OF  THE  BEST  AND  SECOND-BEST  SOLUTIONS  SO  FAR. 

C 

00  <.60  JCQN»  1 ,MMM 
00  450  K.l  ,KCON 
00  <.<.0  JABLE<1.2 
IF  (K-2)  370,500,^00 
370  IF  IJABLE-n  380,380,390 
380  FI  I 1 , L, JCUN)*C( JCON,K , JABLE I 
K 1 'K 

GO  TO  550 

390  F2 ( 1 ,L , JCUN  I -Cl JCON,K  ,JA8L£ ) 

K2  .K 

CO  TO  550 

500  IF  (G( JC0N,K,JA6LE  1-F2(I  ,L,JCONI  I 510,550,550 

510  IF  ( G IJCON  ,K  , JAFL F I -F 1 ( 1 ,L  , JCON I I 520,520,530 

520  F2 ( I ,L , JCUN ) >F1  (1  ,L,  JCON  I 
■ K2.K1 

FI  I I ,L , JCON  I *0  I JCON,K , JABLE I 
K1  •K 

GO  TO  550 

530  F2 ( I ,L, JCUNI 'GI JCCN,K , JABLE ) 

K2  'K 

550  CONTINUE 
550  CONTINUE 

XI ( I ,L  , JCONl • PLEVIKl I 
X2 ( I ,L , JCON (•PCE V<K2J 
560  CONTINUE 
570  CONTINUE 

IF  I I-NSUP*!  1 80,580,510 
580  IF  (ITEST)  500,590,500 
590  LC'NLEV 
GO  TO  80 
500  LC*1 

GO  TO  80 
C 

C 6 that  NAS  the  last  "GO  TO  80"  STATEMENT. 

C 

510  CONTINUE 

IF  (ITEST)  520,530,520 
520  LLC'l 

GO  TO  550 
530  LLC*NLEV 
550  WRITE  16,1060) 

C 

C 7 WORK  BACKWARDS  TO  ASSEMBLE  AND  PRINT  LEAST-COST  SOLUTIONS 

C 

00  700  LL»LLC,NLEV 
OO  690  JC00«1,HMH 
JCON«JCOD 


00002090 

00002100 

00002110 

00002120 

00002130 

00002150 

00002150 

00002160 

00002170 

00002180 

00002190 

00002200 

00002210 

00002220 

00002230 

00002250 

00002250 

00002260 

00002270 

00002280 

00002290 

00002300 

00002310 

00002320 

00002330 

00002350 

00002350 

00002360 

00002370 

00002380 

00002390 

00002500 

00002510 

00002520 

00002530 

00002550 

00002550 

00002560 

00002570 

00002580 

00002590 

00002500 

00002510 

00002520 

00002530 

00002550 

00002550 

00002560 

00002570 

00002580 

00002590 

00002600 

00002610 


Figure  5-6.  Program  4 Listing  (5  of  8) 
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JJJJ.JCON-1 

00002  20 

JTON*  JCOi< 

00002b30 

I'NSUP 

00002bAO 

DELTl  I (•SURPiLLI 

000C2b50 

XF  1 M ( I 1 >X1  ( 1 ,LL  . JCCN  1 

000&2bb0 

!F  (XFIM  ( 1 ) ) 580,580,550 

00002b70 

55C 

IF  (JCDN-ll  5b0,5b0,570 

00002680 

5b0 

JC0N»1 

00002690 

CO  TO  580 

00002700 

5 70 

JCON.JCON-1 

00002710 

580 

1«  I-l 

00002720 

C 

00002730 

c 

7.1  COMPUTE  BALANCE  REMAINING  TO  BE  MET. 

000027',0 

c 

00002750 

OELTI  1)  •OELTI  1 ♦n-XF  IM  ( I ♦!) 

00002760 

c 

00002770 

c 

7.2  FIND  CORRESPONDING  BID  LEVEL  AND  CONTRIBUTION  OF  BIDDER  I. 

00002780 

c 

00002790 

DO  590  L*1  ,NLEV 

00C02800 

IF  (DELTI  I l-SURP(L) 1 590  ,b00,590 

00002810 

590  - 

CONTINUE 

00C02o20 

bOO 

XF  INI  ( 1 I •Xl ( I ,L  ,JCON) 

00002830 

IF  (XFINIII))  bAO  ,b<,0,bl0 

000028A0 

blO 

IF  UCDN-n  b20,b20,b30 

00002850 

biO 

JC0N*1 

00002860 

GO  TO  bAO 

00002870 

b30 

JC0N«JC0N-1 

00002880 

b90 

IF  1 I-n  b50,b5C,580 

00002890 

c 

00002900 

c 

7.3  WRITE  ANSWERS. 

00002910 

c 

00002920 

b50 

WRITE  (b, 10101  SURPILL >• JJJJ 

00002930 

IF  ( F 1 (NSUP  ,L L , JTON 1 -DUMMY  1 b70,bb0,bb0 

000029A0 

bbO 

WRITE  (b, 10501 

00002950 

GO  TO  b90 

00002960 

b70 

WRITE  (b,  1020  1 F 1 INSUP ,LL .JTON) 

00002970 

DO  bBO  I « 1 ,NSUP 

00002980 

b9C 

WRITE  (b,10AOI  l,XFINlin 

00002990 

b90 

CONTINUE 

00003000 

700 

CONTINUE 

00003010 

WRITE  lb, 1070) 

00003020 

C 

00003030 

c 

8 ASSEMBLE  SECOND-BEST  SOLUTION  FOR  OUTPUT. 

000030AO 

c 

00003050 

DO  910  LL«LLC,NLEV 

00003060 

DO  900  JCUD  *1 ,MMM 

00003070 

LLCC'LL 

00003080 

JCON«JCOD 

00003090 

JTON. JCON 

00003100 

JJ JJ.JCON-1 

00003110 

I .NSUP 

00003120 

DELTI  1 l«SURP|LL ) 

00003130 

XF1N2II).X2II  ,LL,JCON) 

000031A0 

Figure  5-6.  Program  4 Listing  (6  of  8) 
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710 

T2C 

■’30 

7<,C 

C 

C 

C 


750 

760 

c 

c 

c 

c 

c 

c 


770 

c 

c 

c 

760 

C 

C 

C 

C 

C 

c 

c 

c 

790 


C 

c 

c 

c 

600 

610 

820 

830 

690 

850 


JJCC  ■ JCQN 

cusiB'f; ( I ,Licc  , j jcc  I 

IF  (XflN2(Jll  790,790,710 

If  IJC(!U-11  720,720,730 

JCON'l 

00  TO  790 

JCON.jCDN-1 

UI-1 


8.1  FIMD  2ND-btSl  SOLUTION  BIO  LEVEL  OF  PRECEDING  BIOOcR. 

DO  750  K.l  ,NLEV 

If  I XF I N2 I I ♦!  ) -SURP  IK  1 ) 750,760,750 

CONTINUE 

LME  T .K 

8.2  COMPUTE  BID  LEVEL  REMAINING  TO  BE  MET. 
0ELT(ll*0ELT(I*l)-XFIN2(I*n 

8.3  LOCATE  THAT  BIO  LEVEL. 

DO  770  L-l.NLEV 

IF  IDELTI  I 1-SURP(L  ) ) 770  ,780  ,770 
CONTINUE 

6.9  COMPUTE  2NC-BEST  blD  COST  FOR  BIDDERS  1 THRU  1. 
DELTB*CUSTB-CCST(I*1,LMET( 

8.5  BEYOND  A CERTAIN  POINT,  THE  2ND-BEST  SOLUTION  FDR  ALL 
BIDDERS  MAY  BE  THE  SAME  AS  THE  LEAST-COST  SULUTIfIN  FDR  ALL 
BIDDERS.  If  THE  2ND-PEST  BIO  COST  IS  LESS  THAN  THE  ARRAY 
2N0-BEST  BID  COST,  ME  ARE  TRACKING  THE  LEAST-COST  SOLUTION, 

SO  ^E  SAVE  THE  LEASI-CUST  FOR  BIDDERS  I THRU  I AT  LEVEL  L 
AND  SAVE  BIDDER  I*S  BIO  LEVEL  IN  THAT  SULUTION. 

IF  ( 0ELTB-F2  1 I ,L , JCON) ) 790,800,800 
XF IN2 ( I l«XI  I I ,L  , JCON  I 
C0STB«F1 ( I ,L, JCON) 

GO  TO  810 

8.6  IF  2ND-BfST  BIO  COST  EOUALS  ARRAY  2ND-bEST  BID  COST,  WE  ARE 
TRACKING  the  2ND-BEST  SOLUTION.  SAVE  DATA  FOR  SAME. 

XF I N2  I I I •X2  I I ,L  , JCON  ) 

C0STB-F2 I 1 , L , JCCN) 

IF  fXFIN2(III  850,650,820 

IF  lJCON-11  830,830,890 

JC0N*1 

GO  TO  850 

JCON- JCON-1 

IF  ( I-l  ) 860,860,790 


00003150 

00003160 

00003170 

00003180 

00003190 

00003200 

00003210 

00003220 

00003230 

00003290 

00003250 

00003260 

00003270 

00003280 

00003290 

00003300 

00003310 

00003320 

00003330 

00003390 

00003350 

00003360 

00003370 

00003380 

00003390 

00003900 

00003910 

00003920 

00003930 

00003990 

00003950 

00003960 

00003970 

00003980 

00003990 

00003500 

00003510 

00003520 

00003530 

00003590 

00003550 

00003560 

00003570 

00003580 

00003590 

00003600 

00003610 

00003620 

00003630 

00003690 

00003650 

00003660 

00003670 
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c 

00003680 

c 

8.7  WRITE  ANSWERS. 

00003690 

c 

00003700 

B60 

WRITE 

(6,10101  SURPILD.JJJJ 

00003710 

IF  |F2(NSUP,LL,JTDN)-0UMMY)  880,870,870 

00003720 

870 

WRITE 

(6,10501 

00003730 

GO  TO 

900 

00003740 

880 

WRITE 

(6,10301  F2(NSUP,LL  ,JTON) 

00003750 

00  890 

1 >1 ,NSUP 

00003760 

890 

WRITE 

(6,1040)  I,XFIN2(I) 

00003770 

900 

CONTINUE 

00003780 

910 

CONTINUE 

00003790 

STOP 

00003300 

C 

00003810 

920 

FORMAT 

(5A4) 

00003820 

930 

FORMAT 

( IHl ,5A4) 

00003830 

940 

FORMAT 

(1H0,12,11H  BIDDERS  C ,I2,11H  BID  LEVELS) 

00003840 

950 

FORMAT 

(5HOblOS ) 

00003850 

960 

FORMAT 

(IH0,6HBID0ER,I3) 

00003860 

970 

FORMAT 

(IHO,20HfcI0  LEVEL  TOTAL  COST) 

00003870 

980  - 

FORMAT 

I8F10.0) 

00003880 

990 

FORMAT 

I IHO ,6HBI0DER, I3,25H  BIO  AT  ILLEGAL  BIO  LEVEL, F4.0) 

00003890 

1000 

FORMAT 

(313) 

00003900 

1010 

format 

(IM0,19H  REQUIREMENT  LEVEL  ,FI0.0,13H  NO.  BIOOERS  ,15) 

00003910 

1020 

FORMAT 

(IH  ,I4H  OPTIMAL  COST  ,F10.0) 

00003920 

1030 

FORMAT 

(IH  ,I7H5EC0N0  BEST  SOL.  ,FXO.O) 

00003930 

1040 

FORM  AT 

(IH  ,6hBI00ER,13,4X,F11.0) 

00003940 

1050 

FORMAT 

(IH  ,22H  NO  FEASIBLE  SOLUTIONS) 

00003950 

1060 

FORMAT 

(IHl  ,25X,17H0PTIMAL  SOLUTIONS) 

00003960 

1070 

FORMAT 

(IHl  ,25X,21HSECON0  BEST  SOLUTIONS) 

00003970 

END 

00003980 

Figure  5-6.  Program  4 Listing  (8  of  8) 
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